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ABSTRACT 


This report analyzes the dynamic motion of an unbalanced rigid body rotor in gen- 
eral linearized bearings and the analysis is applicable to fluid film as well as rolling 
element bearings for small bearing displacements. The complete nonlinear dynamical 
equations of motion, including rotor acceleration, are derived by Lagrange’s equations 
to include the influence of damped, flexibly mounted bearing supports. The dynamical 
equations of motion are linearized by assuming constant angular shaft velocity and shaft 
displacements, which are small in comparison to the rotor characteristic length. Com- 
puter programs to analyze the rotor steady state motion due to unbalance and the stability 
and complete transient response are presented. As an example, these computer pro- 
grams are applied to evaluate the characteristics of a NASA experimental hybrid gas 
bearing rotor system. 
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PART I 


INTRODUCTION 

1.01 Statement of the Problem 

The purpose of this investigation has been to derive the equations of motion of a rigid 
body rotor with an exciting force caused by imbalance situated along different locations 
and different planes. The gyroscopic effects of the rotor on the system have also been 
taken into account. The derived equations of motion include the bearing and support 
characteristics. 

Computer programs have been developed to investigate the steady state and transient 
behavior of the rotor-bearing system which enables a parametric study of the system to 
be made. 

The dynamical equations presented may be applied to any arbitrary rigid body rotor 
system, regardless of the type of bearings used, whether it be fluid film or rolling 
element bearing. 


1.02 Description of Rotor Coordinate System 

Figure 1 represents an arbitrary rotor system mounted in bearings on damped 
elastic supports. In order to express the dynamical equations of motion for the system, 
the total number of degrees of freedom must be determined. The required number of 
dynamical equations necessary will be determined by the degrees of freedom minus the 
equations of constraint. The constraint relations will be discussed in section 1.03. 

The rigid body rotor has six degrees of freedom and requires six generalized 
coordinates to completely specify its motion. The proper choice of the coordinate sys- 
tem is important in order to express the dynamical equations in their simplest form. 
Two types of coordinate systems that may be employed are the Eulerian coordinate 
system and the Cartesian coordinate system. A detailed discussion of these coordinate 
systems and their equations of transformation are given in appendix A. Both coordinate 
systems consist of the Cartesian displacement of the rotor mass center and three 
angular displacements. The Eulerian coordinate system, which is commonly used to 
represent gyroscope systems, is given by 



*11 II I 


ifs local spin angle 

cp precession angle 

9 nutation angle 

x m’ y m’ z m Cartesian components of rotor mass center 

In the Cartesian system, the generalized coordinates are given by 

Q!j rotor angular displacement in y-z plane 

a 2 rotor angular displacement in x-z plane 

a 2 rotor spin angle 

x m ,y m’ z m Cartesian components of the rotor mass center 

The equations of motion in either coordinate system are, in general, highly nonlinear. 
The Cartesian coordinate system has the advantage that if small rotor displacements and 
constant angular velocity are assumed, the dynamical equations become linearized. This 


X 



2 



linearization process is not possible with the Eulerian representation. The Eulerian 
equations possess certain advantages in the investigation of asymptotic solutions for rotor 
precession rate and also are useful in the analysis of unstable forced backward rotor 
precession. 

Figure 2 represents a schematic side view of the rotor system in the Cartesian 
x-z plane. The angular displacements Oj and are given by 



Figure 2. - Schematic axial view of rotor displacement at first bearing. 
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( 1 . 2 ) 


a 2 ~ 


*2-*l 


where 

Xp absolute displacement at number 1 bearing 

Xg, ^2 absolute displacement at number 2 bearing 

The rotor displacements may be represented as follows: 


X 1 = x 2 - “l L ' x m - “l L l 


y l = y 2 " “2 l = y m - “2 L 1 


(1.3) 


x 2 = X 1 + “l L = x m + “l L 2 


y 2 - y l + “2 l " y m + “2 l 2 


(1.4) 


Solving for the displacement at the rotor mass center 


= 

m 


v = 


l 1 x 2 + L 2 x 1 


V2 + L 2 y l 


(1.5) 

( 1 . 6 ) 


Figure 3 represents a schematic axial view of the rotor displacements at the first 
bearing. The absolute displacements Xj and of the first journal center (point Ch ^) 
are given by 


x i> 


y i - 


+ \) ■ (n x , n y ) 


(1.7) 


where 


5^ position vector of first bearing center 

6j^ position vector of first journal center Oj^ relative to the bearing center 
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The final equations of motion will be expressed in terms of the coordinates Xj, y^, 
x 2 , y 2 > z m » and cut. 


1.03 Bearing Coordinate System 

Four degrees of freedom are required to represent the motion of each bearing 
housing since the bearing housing does not spin and axial bearing motion is assumed to 
be negligible. Therefore, the six degrees of freedom reduce to four. 

The four coordinates used to represent the bearing motion are 

u, v horizontal and vertical displacement of the midpoint of the bearing centerline 
y angular displacement of the bearing center in the x-z plane 

/3 angular displacement of the bearing center in the y-z plane 

The number of degrees of freedom for two bearings is therefore eight. The total 
number of degrees of freedom for a rigid rotor is six. If, however, we assume that the 
rotor is moving with constant angular velocity, then the number of degrees of freedom 
for the system reduces to 13. This assumption of constant angular velocity uncouples 
the equation of motion of the rotor in the axial direction from the rest of the system 
equations for small displacements. Hence, the axial motion can be investigated 
independently from the remaining equations of motion. 
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1.04 


Summarizing, the twelve generalized coordinates are the horizontal and vertical 
displacements of the rotor axis at the first and second bearings along with rotor angular 
motions which can also be expressed in terms of the horizontal and vertical displace- 
ment of the rotor at the two bearings. The two bearing housings are assumed to be 
flexible and as such, have x and y displacements along with angular motion in y-z and 
x-z planes denoted by 0 and y, respectively. 

In addition to the bearing stiffness and damping coefficients acting in x- and 
y-directions, cross coupled bearing characteristics are assumed to be present. Bearing 
housings have, in addition to the horizontal and vertical stiffness and damping, the 
angular stiffness, damping, and cross coupled stiffness and damping. 

The generalized rotor coordinates are shown in figure 3 and those of the bearing 
housing in figure 4. 
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PART n 


ROTOR EQUATIONS OF MOTION 


2.01 


System Kinetic Energy 


The equations of motion are derived from Lagrange’s equation, which states that 


where 


dt 


dT 

L 9q rj 


+ ^L + ^ =Fqi 

9q r 9q r 9q r 


( 2 . 1 ) 


where 


T = Total kinetic energy of system 


~ T T + T R + T U 


( 2 . 2 ) 


Trp = Kinetic energy of translation 


= f M i v i * v i 


(2.3) 


T n = Kinetic energy of rotation of balanced rotor 

irt 


- 2 "i") 1 !) 


4 [ 


co^ii + v%I 2 2 + w 3 r 33 + 2u> l w 2 I 12 + 2w l w 3 I 13 + 2w 2 w 3 I 23 


(2.4) 


and 


T u = Kinetic energy of the imbalance masses 


1 z - - 

= — T 6M- v» * v. 

2 i=l 


(2.5) 
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(See appendix A for the derivation of the kinetic energy expressions. ) If the set of 
axes chosen are principal axes, the product of inertia terms are zero, and the kinetic 
energy of rotation reduces to: 


R 


= 1 r 

2 . 


^l 1 !! + W 2 J 22 + 


2 T 

co 3 I 33 


(2.6) 


For a balanced axisymmetric rotor = Igg = Lp, the rotor transverse moment of 
inertia; and Igg = I p the polar moment of inertia. 

The total rotor kinetic energy of the assumed rotor-bearing system is given by: 

T= f M [ i “ + ^ + ^] + f [(“I + “l cos2 “2> : T + <“3 + “1 sln “2> 2l p] 

r . . . 2 * 2 

+ + PjQ! 1 - r i “3 sin “ 3 ) + (y m + P 1&2 + R l “3 cos “ 3 ) 

+ [z m - r j(q! 2 sin ^3 + “1 cos ^3)] 2 | 

([^m + p 2“l - “3^ sin ( a 3 + ®)] 2 


6Mr 


+ [^m + p 2“2 + R 2° i 3 cos(q! 3 + $) ] 2 
+ {z m - ^[^2 sin ( a 3 + cos(q- 3 + $)J j 2 j 


(2.7) 


The kinetic energy of translation and rotation of the bearing housing is given by: 

t B ' \ m l<“? + “2> + | m 2^1 + *2> + J |yi + hA * hy^l + Vl] < 2 ' 8) 


2. 02 Potential Energy With N-Bearings 

The potential energy with N-bearing locations due to the stiffness in the horizontal 
and vertical directions is given by: 

v i 4 £ lK A - vt> (2 - 9) 

^ i=l 

The potential energy of the bearing due to cross coupled damping terms is given by: 
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( 2 . 10 ) 


N 

v 2 " < D ixVi + D lyVi> 


The potential energy of the bearing due to angular stiffness and cross coupled damp- 
ing coefficients is given by: 


2 i=r 


f [Pix^i - a 2 ^ a l “ + P iy ( "l “ n )( ^2 - "2)] ( 2 * n > 


The potential energy of the bearing housing due to the horizontal and vertical stiff- 
ness and the angular stiffness is given by: 


N 


v 4 « ( f ix U i + f iy V i + G ix^i + G iy r i) 
^i=l 


( 2 . 12 ) 


and that due to thrust bearing is 


V 5 = | Vm 


The total potential energy is then 

N 


V - V, + v 2 + V, + v 4 + v 5 = i E [k^ + K . y y 2 + 2 + 2 D^y, 


+ M ix<“2 - l! f + M iy(“i - n )2 + 2 - n> 


2 Pjyfii - VjXPj - <* 2 > + f^U 2 + f iy V 2 + G^/3? + G, y y 2 ] + | Vm (2. 13) 


The coordinates x- and y^ are related to the coordinates x m , y , a and Qfg by 
the following relations: 


x i * x m + “l L i 

(2.14) 

n - y m + a fi L i 

(2. 15) 
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where L. = distance from the rotor mass center to the centerline of the bearings. 

If N = 2, i. e. , there are only two bearings, then in terms of the above generalized 
coordinates, expressions (2. 14) and (2. 15) reduce to 

v = \ [ f lx D ? + hA * f ly V ? + f 2y A * °1 A * °2 A 

+ G ly rl + G 2 y y\ + Klx (x m - L^J - U,) 2 + K 2 x (x m + L ^ - U 2 ) 2 

+ K ly< y m - L l“2 - v l> 2 + ^yfrm ♦ h a 2 ‘ V + M ]x (« 2 - ^2 
+ M 2x (a 2 - 0 2 ) 2 + M ly (aj - y/ + M 2y (aj - r 2 > 2 ] (2. 16) 


+ D ly<ym - l 1 & 2 - Vi)(x m - Ll“l - Uj) + - Lj&j - - LjC« 2 - V,) 

+ D 2y< y m * L 2“2 ' ^2> < x m + L 2 a l " U 2> + D 2x (i m + L 2“l ' * h a 2 " V 

+ P lx^l " “2^ a l " y \ ) + P 2x^2 " ®2^“l " y 2* + P ly^l ■ a 2^“l ■ y {) 

+ p 2y<^2 - “ 2 )<“l - *2> *\ VS. (2 ' 17) 


2.03 Dissipation Energy With N-Bearings 

The dissipation energy with N-bearing locations due to damping in x- and 
y-directions is given by 

d i 4 £ < v 2 - < 2 - i8) 

z i=l 

The dissipation energy due to cross coupled stiffness terms is 

N 

D 2 = E + RiyYjXj) (2- 19) 

i=l 

The dissipation energy due to angular damping and cross coupled angular damping is 
given by 
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D 3 - \ £ {nix<“ 2 - ^'i) 2 + N iy(“l - ¥*} 

n r , . . . ^ 

+ E{Qix( a l ■ r i^i " “2^ + ®iy^i “ a 2^ a l “ r i^J ( 2 - 20 ) 

The dissipation energy of the bearing housing due to the horizontal and vertical damping 
and that due to angular damping is given by: 

d 4 - 1 £ + V? + + < 2 ' 2l > 

and that due to the thrust bearing is 

D 5*| C ^m <2 ' 22) 


The total dissipation energy is then given by: 


D - Dj + D 2 + D 3 + D 4 + Dg 


N 


= 2 i?i (Vi + Vi + 2R l*Vi + 2R iyVi 


+ Nix(«2 - fy 2 + N iy (« 1 - /3.) 2 + 2Q ix (« x - y^. - a 2 ) 


+ 2Q iy (^i - «2 )(a l - n> + Vi + Vi + Vi + Vi } + \ C z Z m (2. 22 ) 


Considering only two bearings and using equations (2. 14) and (2. 15), the expression for 
the total dissipation energy becomes: 
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D — + B 2x U 2 + B iy v l + B 2y^2 + ^ix^l + 11 2x^2 

+ Mi y r 1 + M 2y V 2 + c lx^ x m ■ L l a l ■ + C 2x^ x m + L 2 a l " ^2^ 

+ C iy(y m - L l“2 - Vj) 2 - C 2y (y m + L 2 a 2 - V 2 ) 2 + N te (« 2 - ) 2 

+ N 2x^ a 2 " + N ly( a l “ r l^ + N 2y^“l “ y 2^\ 

+ R ix< y m - L l“2 - Vi)(x m - Ljffj - U x ) + + L 2 « 2 - V 2 )(x m + - U 2 ) 

+ R iy^ x m " L l a l " R l^ y m " L l a 2 ' V l^ + ^y^m + L 2 a l ' ^2^ y m + L 2®2 " V 2^ 


+ Qix^l " a 2^“l " ^ + ^2x^2 " Q! 2^ Q! 1 ” r 2^ 

+ Qiy( a l _ ^lK^i “ ^ 2 } + ^y^l ” y 2^2 ~ “ 2 ^ + T C z z 


2 

m 


(2.24) 


2 . 04 Nonlinear Equations of Motion 

The equations of motion are obtained by applying Lagrange’s equation (2. 1) to the 
twelve generalized coordinates considered here. 

These equations of motion are nonlinear and are as follows: 

U 1 : m lUl + fix U l - K ix< x l - U l> " V y l - V l> - V y l - Vi) 

+ B ix^l " C lx (x l ■ ^ 1 ) = 0 ( 2 - 25 ) 

v l : Vl + f iy V l - K iy( y l - V l) - R ix< x l - U l> - V X 1 - "l> 

+ B iy Vl - c i y (yi - Vj) = 0 (2.26) 

U 2 : m 2 U 2 + f 2x U 2 - K 2 x (x 2 - U 2 ) - R 2 y( y 2 “ V 2^ ~ D 2y^ y 2 ' ^ 2 ) 

+ B 2xU 2 ‘ C 2x< x 2 - U 2 > = 0 ( 2> 27) 
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V 2 : m 2 V 2 + f 2y V 2 “ K 2y^ y 2 " V 2^ “ R 2x^ x 2 " U 2^ " D 2x^ x 2 “ G 2^ 

+ B 2y V C 2y< y 2 ' V = 0 < 2 - 28 

P l : hJl + G ix^l + M lx^l ~ a 2> + Q ly( a l - y l> + P ly(“l “ y l> 

+ M^i + N ix(^i - “2) = 0 ( 2 - 29 ) 

y V *ly y l + G ly y l + M ly^ y l " “l* + ^1x^2 " ^ + P lx^2 “ ^ 

+ V-lyYl + N ly^l - “1) = 0 ( 2 - 3 °) 

8 2 : *2x^2 + G 2 x^2 + M 2x^2~ 01 2 ^ + ^2y( a l “ y 2^ + P 2y(“l “ y 2^ 

+ ^2x^2 + N 2x^2 “ ®2^ = 0 ( 2 ‘ 31 ) 

y 2* *2y y 2 + G 2y y 2 + M 2y (y 2 “ 01 1> + ^2x^2 ' ^ + P 2x^2 ' 

+ ^2y y 2 + N 2y^ y 2 " **]) = 0 (2. 32) 

• • »m •• 

X M : (M + 6Mj + 6M 2 )x m + (SM^Pj + 6M 2 Pp)Q’ 1 - (SM^Rj sin otg + SMgRj sin(a; 3 + $))a ' 3 

- (SMjRj sin a 3 + SM 2 R 2 sin(c* 3 + <&))a! 3 

+ K ix^ x m " L l"l ” U l^ + K 2x^ x m + L 2 a l _ U 2> 

+ D ly (y m - L x « 2 - Vj) + D 2y (y m + L 2 « 2 - V 2 ) 

+ C lx( x m - L l“l ~ G i) + C 2x (i m + L 2 « x - U 2 ) 

+ V y m - L l a 2 ~ V l) + ^yfrm + L 2 a 2 “ V 2> 

= cos Qfg + 6M 2 R 2 cos(£* 3 + $)J a 2 (2. 33) 
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Y m : ( M + 6M 1 + 6M 2^ Y m + ( 6M 1 P 1 + 6M 2 P 2 )a 2 + [fiMjRj cos a^+ 6M 2 R 2 cos(a 3 + ®)]« 3 

+ K ly(ym - L l a 2 ‘ V l> + + L 2 a 2 " V 2 ) 

+ D lx^m * L l“l - Uj) + D 2x (x m + L 2 a 1 - U 2 ) 

+ C ly( y m " L 1 Q! 2 " + C 2y( y m + L 2 a 2 ' Y 2^ 

+ R lx< x m - L l a l - U l> + R 2x^ x m + h 2 a l ~ U 2> 

= JsMjRj sin a 3 + 5M 2 R 2 sin^g + (2. 34) 

Z m : ( M + 6M i + 5M 2 ) z m - sin a 3 + 6M 2 R 2 sin(Q , 3 + $)]a 2 

- [fiM^ cos ot 3 + 6M 2 R 2 cos^g + ®)]aj_ + K z z m + C z z m 
= [sMjRj cos a 3 + 6M 2 R 2 cos(Q !2 + ^*)J <^ 2 ^ 2 

- [iSMjRj sin <*2 + 5M 2 R 2 sin ( Q! 3 + ®)]“l®3 ( 2 - 35 ) 


oty I T j^or 1 cos 2 Q!2 - a i a 2 sin 2 ^ 2 ] + Ip[®2^3 cos a 2 + < *l®2 sin a 2 + a 3 sin a 2 + a l sin2 a 2 + ®\ 0i 2 sin a 2 cos ** 2 ] 
+ 6 M 1 p 1 [x m + P 1 a 1 - ^3 R i sin a 3 - a 2 R 1 cos a 3 J 
+ ^2^2 [ x m + ^2^1 " a 3 R 2 sin ( a 3 + $) - a\ R2 cos(a! 3 + 

+ SM-^Rj sin a 3 a 3[z m - R^a^ sin a 3 + ^1 cos a 3^] 

- 6MjR^ cos * 3 rz m - R^ Q? 2 sin a 3 ~ R l“2®3 cos a 3 " R l^l cos ^3 + R l^l^3 sin a 3j 
+ 6M 2 R 2 a 3 sin(a 3 + <£)|z m " ^[(“2 sin ( a 3 + ®) - cos(Q! 2 + <£)j| 

- 6M 2 R2 cos(a 3 + ®)jz m - R2 a 2 sin ( a 3 + ®) - ^^2^3 cos ( a 3 + ®) - R2 Qf i cos(a 3 + $) + RgO^aig sin ( a 3 + ^)] 

_ K lx L l (x m " L l a l " U l ) + K 2x L 2 (x m + L 2 a l ' U 2^ “ D ly L l (y m ' L l a 2 ~ ^ 2 ) 

+ D 2y L 2^ y m + L 2 a 2 " ^ + M ly^l ~ r l) + M 2y( a l “ y 2 ^ + P lx^l “ a 2) + P 2x^2 ~ a 2) 

- C lx L 1 (x m - L 1 a 1 - Uj) + C 2x L 2 (x m + - U 2 ) - R ly L 1 (y m - 2 - V l) + R 2y L 2< y m + L 2 a 2 ’ V 2^ 

+ N iy( a l - Yl) + N 2y( a l ‘ y 2 ) + Qlx (/3 1 “ “2^ + Q 2x (/3 2 “ a 2> = 0 (2 . 36) 
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c*2 : i t( Q! 2 + “l sin “2 cos “2^ " J p®l cos a 2^®3 + “3 sin a 2^ 


- 6M 

- 6M 


+ SMjPj [Y m + a^i + a 3 R i cos a 3 " “3 R 1 sin “3] 

+ + “3 R 2 cos (“3 + *) - «f R 2 sin(a 3 + $)] 

jRj cos a 3 a 3 |z m - Rj(a 2 sin a 3 + cos a g )J 

jRj sin a 3 [z m - Rj^ag sin a 3 + cos “3 + oij cos “3 - “l“3 s ^ n <*3)] 

- 6M 2 R 2 a 3 cos(a 3 + ®)|z m - Rg Ja 2 sin(a 3 + $) + cos(a 3 + 4>)]| 

- 5M 2 R 2 sin ( a 3 + ®) [ z m " R 2 a 2 sin ( Q! 3 + ®) - R 2®2“3 C0S ( Q! 3 + ®) 

- RgOj cos (a 3 + $) + Rgi^ag sin(a 3 + 

- K i y Li(y m - L l a 2 " V l) + K 2y L 2< y m + L 2 a 2 ' V 2* 

- D lx L l< x m - L l"l - U l> + D 2x L 2< x m + L 2“l “ U 2> 

+ M 1x (« 2 - PJ + M 2x (« 2 - ^2> + P ly^ - “l> + P 2y<> , 2 ' “l> 

- c iy L i(y m - L i a 2 ■ ^1) + C 2y L 2 (y m + L 2“2 " ^2 ) 

+ R lx L l< x m - L l a l - U l> + R 2x L 2( x m + L 2 a l “ U 2> + N lx("2 " 

+ N 2x^ a 2 " + ^ly^l " + ®2y( y 2 - a i) = 0 


6M1 


- 6M-, 


( 2 . 37 ) 


a 3 : l p .1 (a ^ sin a 2 ) - 6M i R i A ^sin a 3 (x m + Pjcrj - Rjtxg sin « 3 )J 

+ SMjRj — jcos a 3 (Y m + Pja 2 + R l a 3 cos a 3^] 

- 6M 2 R 2 A|sin(a 3 + <&)jx m + P 2 a 1 - R^g sin(a- 3 + *)]} 

" 6M 2 R 2^-{ cos(a 3 + ®>[y m + P 2«2 + R 2<*3 cos(a 3 + *)]} 

[l R !« 3 cos a 3 [ (x m + P l“l ‘ R l“3 sin “3)] 

IjRjOg sin a 3 [y m + P !« 2 + R l«3 cos «s] 

- 6M 2 R 2 a 3 sin(a> 3 + $) [x m + P 2 a 1 - Rgiig sin(a 3 + $)] 

2 R 2 a 3 sin(o> 3 + <E>) [y ffl + P 2 ^ 2 + R 2 «3 cos < a 3 + *>] = Qa 3 (2. 38) 


- 6M, 
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2.05 


Linearized Equations of Motion 


The general rotor equations of motion (2. 25) to (2. 38) including rotor acceleration 
are highly nonlinear and represent a difficult problem to solve. These equations may be 
simplified considerably if we assume constant rotor angular velocity and small bearing 
displacements. 

Hence, 


and 


o!g = co = constant, Og = cot 


X 2 " x i 

sin <*1 w <*1 = « 1 


Y 2 " Y i 

sin a 2 » a 2 = — « 1 


The unbalance masses are considered small in comparison to the rotor mass. Hence, 


6Mj 

M 


6M« 

— i« l 

M 


If it is further assumed that the bearing housing is rigid, then equations (2. 25) to 
(2. 32) do not enter into the system equations. The resulting five linearized equations of 
motion are as follows: 

X m : ^< l 1 X 2 + l 2*1> + + K 2x x 2 + C lx x l + c 2x*2 

+ R ly yj + R2 y y 2 + D ly yj + D 2y yj 

2 2 

= SM-^co Rj cos cot + SMgCO Rg cos(cot + 3>) (2. 39) 

Y m* T < L l y 2 + L 2 y 2> + K ly y l + K 2y y 2 + C ly y l + C 2y y 2 
L 

+ R lx x l + r 2x x 2 + D ta*l + D 2x i 2 
2 2 

= 6M^co Rj sin cot + 6M2C0 R2 sin(cot + 4 ?) ( 2 . 40 ) 



Ip 


(x 2 - X x ) (y 2 - yJ 

L + ^P W L + *^2y R 2 y 2 “ ^ly^l^l 

+ C 2x L 2 x 2 " C lx L l x l + K 2x L 2 x 2 “ K lx L l x l + R 2y L 2 y 2 “ R ly L l y l 
2 2 

= SMjPjW Rj cos cut + SM^gCU R 2 cos(cut + 4>) (2.42) 

(y 2 “ Yi) (x 2 - xj 

a 2 : T T £ ^ — + D 2x L 2 x 2 " D lx L l x l 

+ C 2y L 2 y 2 " C ly L l y l + K 2y L 2 y 2 " K ly L l y l + R 2x L 2 x 2 " R lx L l x l 
2 2 

= SMjPjW Rj sin cut + 6M 2 P 2 cu R 2 sin(cut + <£) (2.43) 

Due to the assumption of constant rotor angular velocity, equation (2. 38) identically re- 
duces to zero. It may be further observed that equation (2. 41) is uncoupled from the 
rest of the system equations; hence, it may be solved independently. 

If we now substitute 


I T = MR^ I p = MRp 

where Rp and Rp are the transverse and polar radii of gyration of the rotor respec- 
tively, and 




1 1 
L 

II 

i— ^ 

zl = 

L 

*2 



D iy 

M 

= 5 iy 

P 2y = 
M 

P 2y 

M 

= P lx 

D 2x 

M 

= D 2x 

R ly 

M 

= R ly 

ii 

5^1 § 

R 2y 

R lx = 
M 

= R lx 

R 2x 

M 

= R 2x 

c iy 

M 

= ^ly 

sW° 

II 

C 2 y 

C lx. 

M 

= c lx 

C 2x 

M 

= ^2x 

K ly 

M 

= K iy 

II 

R 2y 

M 

= R lx 

^2x 

M 

= r 2x 
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The equations (2.39), (2.40), (2.42), and (2.43) reduce to 




x m" *l x 2 + Vl + D l y yi + D 2 y y2 + C lx x l + C 2x x 2 + K lx x l + K 2x x 2 + R l y yi + **2^2 

= _L cos wt + 6M 2 cd 2 R 2 cos(a)t + $)] (2. 44) 


y m : ijyg + SL 2 h + D lx x l + D 2x x 2 + C l y yi + C 2 y Y2 + K l y y l + K 2 y y 2 + R lx x l + R 2x x 2 

= — sin wt + 6M 2 u> 2 R 2 sin(wt + ®)] (2. 45) 


«1 : ^r^2 - x l> + R p^y2 - yp + D 2 y ^2^2 - D l y £ iyi + C 2xV2 - C lx f 1 X 1 

+ ^2x £ 2 x 2 " R lx f l x l + R 2 y £ 2 y 2 " R l y £ l y l 
= — — ^6MjW 2 RjPj cos art + 6M 2 w 2 P 2 R 2 cos(a?t + *)] (2.46) 


a 2 : ~ *1> - R p w(x 2 ' x l> + D 2x £ 2 x 2 " D lx £ l x l + C 2yh?2 " C ly l l*l 

+ K 2y £ 2 y 2 - + R 2 xV 2 “ R lx £ l x l 

= -A— [^6M jC 0 2 PjRj sin art + 8M 2 a> 2 P 2 R 2 sin(u>t + <&)J (2. 47) 
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PART m 


STEADY STATE SOLUTION OF THE EQUATIONS OF MOTION - 
POUR DEGREES OF FREEDOM SYSTEM 


3.01 


The complete solution of the linearized equations of motion (2. 44) to (2. 47) will be 
the sum of the general solution of the homogeneous equation (i.e. , the general solution 
of the equation with right-hand side zero) and the particular solution of the complete 
differential equations. This particular solution describes, on the other hand, the forced 
vibrations caused by the rotor unbalance. 

Equations (2. 44) to (2. 47) will be satisfied if we assume a harmonic solution of the 
following form: 


Xj = x[l] cos cot + x[2] sin cot ^ 
Xg = x[3] cos cot + x[4] sin cot 




yj = x[5] cos cot + x[6] sin cot 
y 2 = x[7] cos cot + x[8] sin cot 


(3.1) 


Substituting these in equations (2.44) to (2.47) we obtain the resulting equations in 
the following matrix form after equating the coefficients of cos cot and sin cot in the 
four equations. 
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- 

- 


" 

S lx 

- i 2 “ 2 

C lx“ 

- l^ 2 

C 2x“ 

R ly 

D ly“ 

R 2y 

5 2y“ 



— foM., w 2 R 1 
M L 1 1 

+ 6M 2 u> 2 R 2 cos *] 

C lx“ 

*lx 
- £ 2 " 2 

- 5 2x w 

X 2x 
- a^(v 2 

‘ 5 ly“ 

R ly 


R 2y 

x[2] 


6M 2 2 r . _ 

cj Ro sin <£ 

M ^ 

R lx 

5 lx" 

^2x 

6 2x w 

S U 
- e 2" 2 

C ly o, 

*2y 
- S.^ 2 

5 2y“ 

x(3] 


CM o o 

to R 0 sin <Z> 

M * 

- 6 lx" 

R lx 

“ 5 2x" 

*2x 

■ CjyO. 

Kly 

-£ 2 u, 2 

- C 2y uj 

S 2y 

- tjOJ 2 

x[4] 


CM 2 

t oTR, 

M 1 

6M 9 o 

+ oTR 9 cos * 

M * 

Rj.0) 2 

- S lx £ l 

- 5 lx f X" 

-Rpto 2 

^2x £ 2 w 

- R ly £ l 

-R p “ 2 

- D ly £ l" 

*2y £ 2 

R p“ 2 

+ D 2y f 2 o; 

x[5J 


CM, 2 

tp w * R 

ML 1 1 

CM o 2 n „ - 

£UJ P ,Rn Cos $ 

ML 22 


Rj.w 2 

' X lx £ l 

" ^2x £ 2 w 

-Rpto 2 

+ ^2x £ 2 

R w 2 
P 

+ 5 ly £ l“ 

-Vi 

-R pW 2 
- 5 2y £ 2“ 

**2y £ 2 

x [6] 


-CM 2 9 

u) P 9 R 9 sin $ 

ML * ^ 

" R lx £ l 

V 2 

- 5 lx £ l“ 

^2x £ 2 

-RpO, 2 

+ ^2x £ 2 w 

Rj.w 2 

- K ly £ l 

-Cjy £ 1 U> 

-Rpo; 2 

+ V2 

^2y £ 2 w 

x[7] 


CM 2 2 

oj^R2p 2 sin 

ML 

-Rp“ 2 

♦“lx*!" 

- R lx £ l“ 

RjU) 2 

- 5 2x £ 2 w 

*2x £ 2 

S ly £ l" 

Rj,w 2 

- Vl 

-C2y £ 2 W 

-R, r o) 2 

+ v 2 

x[8] 


CM i 2 
— w P 7 R, 

ML 1 l 

CMo 9 

+ -co P 2 R 2 cosO 

ML 


( 3 . 2 ) 


The solution of the above algebraic simultaneous equations will yield x[l], x[2], 
. . . , x[8]. The amplitudes of x 1? x 2 , yj, and y 2 are 


I X 1 1 = >^[ 1] 2 + x [ 2]2 
|x 2 | = f4[3] 2 + x[4] 2 
|7l | = |/x[5] 2 + x[6] 2 
|y 2 | = j/x[ 7] 2 + x[8] 2 


( 3 . 3 ) 
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The angular amplitudes can be obtained from 


“1 = 


x 2 ' X 1 


= JL |(x[3] - x[l])cos cot + (x[4] - x[2]) sin cotj 
'• |«il = - V(xl3] - x[2 ]) 2 + (x[4] - x[2 ]) 2 


Similarly, 


| Q-2 I =~ V(x[7] - x[5]) 2 + (x[8] - x[6]) 2 


The steady state solution is therefore given by 

Xj = |xj | cos (cot - l/^) 
Xg = Ixg | cos(cot - 
yj = |yj I sin (cot - ^ 3 ) 
y 2 = |y 2 | sin(cot - xf/^) 


> 


J 


where. 


= arctan 

^2 = arctan |~^ 1 — ) J 
if / o = arctan 

L x [6] J 

** = [Si] 


> 


(3.4) 


(3.5) 


(3.6) 


(3.7) 
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3.02 


Derivation of Phase Angles 


The resultant exciting force due to the two planes of unbalance can be resolved into 
two components. 

x- component 

2 2 

= 6MjW Rj cos a>t + 6M2W R£ cos(tot + $) 

= yCSMjRj) 2 + (6M 2 R 2 ) 2 + 26M 1 R 1 6M 2 R 2 cos $ to 2 cos(tot + to) 

= Me u to 2 cos(tot + \p) (3. 8) 

where 


xp = arctan 


6MgR2 sin $ 
6 MjRj + 6M2R2 cos $ 


(3.9) 


and 


e u = i- ytSMjRj) 2 + (6M 2 R 2 ) 2 + 26M 1 R 1 6M 2 R 2 cos $ 
Y 



Figure 6. - Diagram of unbalance force and rotor 
response phase relation. 


(3.10) 
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Similarly, 


y- component 


= Me^o; 


sin(art + i//) 


From equation (3 . 6) it is observed that the response lags the angular velocity by an 
angle (i = 1, 2, 3, 4). If the response vector is superimposed on the excitation 
vectors as shown in figure 6, it can be observed that the response lags the resultant 
excitation due to unbalance by an angle (\f/ + ;//.). If, however, in computation, this 
angle turns out to be negative, then the response instead of lagging will lead the excita- 
tion. 

The resultant phase angles of the cylindrical responses with respect to the imbalance 
is given by 


*xl 

^x2 

*yi 

^y2 


^ + 
4/ + 
4/ + 








(3.11) 


The resultant moment about the x and y axes due to rotor unbalance will have to 
be calculated in order to compute the phase difference between the conical response and 
the excitation moments. 

The moment due to unbalance about y axis is given by 


2 2 

M = SMjRjPjO) cos art + cos(art + 


= '^(PlRl5M 1 ) 2 + (P 2 R 2 $M 2 ) 2 + cos $ ^ cos(art + 


) (3. 12) 


and the moment due to imbalance about x axis is 


M x = -^/(p^R^SM^) 2 + (P2R2 6M 2^ + ^1^2^1^2 6M 1 6M 2 cos ® sin(u>t + ^) (3. 13) 


where 
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i// t - arctan 


P 2 H 2 6M 2 sin * 

+ P2R 2 5M2 cos 4? 


(3. 14) 


Now, 


a i= | “I COs(cut - l//g)~'j 


and 


> 


(3. 15) 


a 2 = M sin(wt - i// g ) J 

Hence the phase lags between the conical responses 01 ^ and c^, wit h respect to the 
exciting moment, is given by 


Kl = ^t + ^5 

K2 = + ^6 


(3. 16) 


3.03 Calculation of Force Transmitted to Bearings and of Phase Angles 

Between Transmitted Force and Excitation 

Force transmitted in the first bearing in x-direction is given by 

F xi = c ix*i + K ix x i + D i y yi + R i y yi 

= COS wt|x[2]wC lx + x[llK lx + x[6]toD ly + x[5]R ly J 

+ sin wt ^-x[l]cuCj x + x[2]K lx - x[5]coD ly + x[6]R ly j 

= cos cot + B x j sin cot 


where 

= x [ 2 l wC ix + + x [ 6 ] ajD i y + x[5]R ly 

B xi = -x[l]coC lx + x[2]K lx - x[5]cuD ly + x[6]R ly 

•'•l F xll=V A ll + B xl 
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and 


F xl = l F xll cos ( wt “ 


where 


\prj = arctan 


B. 


jcl 

V xl 


Similar expressions for the force transmitted in x- and y-directions in the first and 
second bearings can be obtained from 

F yl = C ly y l + K ly y l + D lx*l + R lx x l = I F yl \ sin ^ + * 8 * 

F x2 = C 2x x 2 + K 2x x 2 + D 2y y 2 + R 2y y 2 = I F s2 l cos ^ “ 

F y2 = C 2y y 2 + K 2y y 2 + D 2x x 2 + R 2x x 2 = I F y2 l sin ( cot+ 


where 

l F yll'V^l + B yl 

l F x2l=V^2 + B l2 
l F y2l=V^2 + B y2 

A y i = x[6]coC ly + x[5]K ly + x[2]u>D lx + x[l]R lx 
B y i = -x[5]u>C ly + x[6]K ly - x[l]u>D lx + x[2]R lx 
A x2 = x[4]o> C 2 x + x[3]K 2x + x[8]wD 2y + x[7]R 2y 
B x2 = + x [4]K 2x - x[7]coD 2y + x[8]R 2y 

Ay 2 = x[8]wC 2y + x[7]K 2y + x[4]coD 2x + x[3]R 2x 
B y2 = -x[7]coC 2y + x[8]K 2y - x^wD^ + x[4]R 2x 
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ij/g = arctan 



i//g = arctan 


B x2 

^x2 



= arctan 



PART IV 


ROTOR DYNAMIC UNBALANCE ANALYSIS 
4.01 Computer Programs for Rotor Steady State Solution 

Three versions of the steady state unbalance response computer programs were 
developed. These programs are ROTOR4, ROTOR4P, and ROTOR4M. The first ver- 
sion, ROTOR4, produces tables of the various bearing amplitudes, forces, and phase 
angles. The second version will plot any of these quantities as a function of speed. The 
third version prints out only the rotor maximum amplitude at any particular shaft loca- 
tion specified. 

Detailed description of each of these programs is given in sections 4.02 and 4.03. 


4.02 Computer Programs ROTOR4 and ROTOR4P 

A computer program was written to obtain the rotor steady state behavior. The 
equations of motion (2.44) to (2.47) were solved for certain increments in speed. It is 
to be noted that the general rigid body system requires six degrees of freedom. How- 
ever, with the assumption of constant angular velocity of the rotor and the rotor axial 
equation of motion being uncoupled from the rest of the system equations, reduces the 
system to one with four degrees of freedom. The equations considered are linearized, 
based on the assumption that the rotor amplitudes are small, and the terms such as 
6MiX m , 6M jy m are small in comparison to Mx m , My m , etc. This program evaluates 
the rotor behavior due to certain unbalance along different location and at different 
planes of the rotor. 

In addition to computing the rotor amplitudes, their phase lag or lead with respect 
to the excitation and the amount of force transmitted, etc. , this program also has pro- 
vision for computing the amplitudes and their phase angles as functions of unbalance 
force at any arbitrary location along the rotor length. 

The program requires the following to be read as input data: 

Card 1 

1. WO - Initial speed rps 

2. DW - Increment in speed, rps 

3. WM - Final speed, rps 
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Card 2 

1. L - Length between the bearings, in. 

2. LI - Distance from first bearing to mass center, in. 

3. L2 - Distance from second bearing to mass center, in. 

4. W - Rotor weight, lb 

o 

5. IP - Polar moment of inertia of the rotor, lb-in. -sec 

2 

6. IT - Transverse moment of inertia of the rotor about mass center, lb-in. -sec 
Card 3 

1. WM1 - First unbalance weight, lb 

2. WM2 - Second unbalance weight, lb 

3. HI - Distance from first bearing to first unbalance, in. 

4. H2 - Distance from first bearing to second unbalance, in. 

5. PHI - Phase angles between imbalance planes, deg 

6. R1 - Radius of first imbalance location, in. 

7. R2 - Radius of second unbalance location, in. 

Card 4 

1. N - Number of places other than the bearing locations where displacements are 

to be measured 

2. LZ1 - Distance from first bearing to first probe, in. 

3. LZ2 - Distance from first bearing to second probe, in. 

Card 5 

1. K1X - First bearing stiffness in x -direction, lb/in. 

2. K2X - Second bearing stiffness in x-direction, lb/in. 

3. K1Y - First bearing stiffness in y-direction, lb/in. 

4. K2Y - Second bearing stiffness in y-direction, lb/in. 

Card 6 

1. C1X - First bearing damping coefficient in x-direction, lb-sec/in. 

2. C2X - Second bearing damping coefficient in x-direction, lb-sec/in. 

3. C1Y - First bearing damping coefficient in y-direction, lb-sec/in. 

4. C2Y - Second bearing damping coefficient in y-direction, lb-sec/in. 

Card 7 

1. D1X - Cross coupling damping coefficient, lb-sec/in. 

2. D2X - Cross coupling damping coefficient, lb-sec/in. 

3. D1Y - Cross coupling damping coefficient, lb-sec/in. 

4. D2Y - Cross coupling damping coefficient, lb-sec/in. 

Card 8 

1. R1X - Cross coupling stiffness, lb/in. 

2. R2X - Cross coupling stiffness, lb/in. 

3. R1Y - Cross coupling stiffness, lb/in. 

4. R2Y - Cross coupling stiffness, lb/in. 
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The data cards are in free field format. A comma should separate all data entries. 
A comma is needed after the last data entry. 

The heading printouts of the input data are as follows: 

Line 

1 L, LI, L2, HI 

2 H2, W, WM1, WM2 

3 K1X, K2X, K1Y, K2Y 

4 C1X, C2X, C1Y, C2Y 

5 R1X, R2X, R1Y, R2Y 

6 D1X, D2X, D1Y, D2Y 

7 IP, IT, Rl, R2 

8 PHI 

The output data are printed out as follows: 

Column 

1 Speed, rps 

2 Displacement at bearing 1 in x- or y-direction 

3 Displacement at bearing 2 in x- or y-direction 

4 Phase angle of displacements at first bearing with respect to excitation 

5 Phase angle of displacements at second bearing with respect to excitation 

6 Angular displacements in x-z or y-z plane 

7 Phase angles of angular displacements with respect to exciting moment 

8 Force transmitted to bearing 1 in x- or y-direction 

9 Force transmitted to bearing 2 in x- or y-direction 

10 Phase angles of the force transmitted to bearing 1 with respect to exciting 

force 

11 Phase angles of the force transmitted to bearing 2 with respect to exciting 

force 

The printout of the output at any arbitrary location is as follows: 

Column 

1 LZ - The probe location along the rotor from first bearing 

2 XL - Amplitude in the x-direction at arbitrary location 

3 YL - Amplitude in the y-direction at arbitrary location 

4 PXL - Phase angle of the amplitude in x-direction at arbitrary location 

with respect to excitation 
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Column 

5 PYL - Phase angle of the amplitude in the y-direction at arbitrary 

location with respect to excitation 

6 SPEED, rps 

In addition to the above tables to be printed out, a plotter procedure is included , 
which plots out the amplitudes, force transmitted, phase angles of the amplitudes, and 
transmitted forces at different rotor speeds. 

The computer program ROTOR4P, which plots up the different variables with speed, 
must be provided with the following input cards in addition to the eight input data cards 
of ROTOR4: 


Card 9 

1. WP - Number of cards to be read to plot 
Card 10 


1. A - Case number 

2. GK - Always to be set equal to 1 
Card 11 

1. B - Grid type (described in detail in table I) 

2 . ^ 


3. 

4. 

5. 


> C, D, E, F 


6. YMIN - Minimum value of variable along y-axis 

7. DY - Magnitude of variable along y-axis per inch of the total 6 inches along 


y-axis 

8. QQ - If *0’ (zero), then program scales according to first line drawn on graph; 
on the other hand, if this is *1’, then the values of YMIN and DY must be pro- 
vided 

Card number 11 must be punched with proper input values and, as is obvious, can 
be more than one, depending on the number WP of card number 9. 

A listing of the above computer program is given in appendix B along with sample 
output tables. 


31 


TABLE I. - EXPLANATION OF VARIABLES B, C, D, E, F 
IN INPUT CARD 11 AND EXPLANATION OF SYMBOLS 


If B = 

(a) 

1 

2 

3 

4 

5 

6 

7 

Meaning 

of 

symbols 

c 

X 1 

^xl 

a i 

'f'al 

F xl 

PUBFX1 

Arbitrary ampli- 
tudes x and y 

A 

D 


*yi 

“2 

^a2 

F yi 

PUB FYI 

Phase angle of 
amplitude at 
arbitrary lo- 
cation 




^x2 




PUBFX2 



Ej 

x 2 



f x2 



-p 

?2 

^ y2 




PUBFY2 


* 

r 



*y2 




a C, D, E, F should be either '1' or 'O’ of 1; the corresponding variables 
are to be plotted for particular value of B. On the other hand, if it is 
zero, no plot is made. 


4. 03 Computer Program to Evaluate Maximum Rotor Amplitude and 

Forces for a Four Degree of Freedom System (ROTOR4M) 

This computer program evaluates design data for the four degree of freedom system 
that simulates a rigid body rotor on general anisotropic bearings. Two planes of un- 
balance are considered in this program and the response caused by this rotor unbalance 
is evaluated. The program uses an iterative procedure to find the maximum amplitudes 
and then the corresponding critical speeds, phase angles, etc. are determined. This 
program calculates the amplitudes at each increment of rotor speed. When a peak am- 
plitude is found by the iterative process, the corresponding speed is recorded, and all 
other parameters are computed for this critical speed. A procedure is incorporated 
into the program to obtain the maximum amplitudes and other needed design parameters 
for arbitrary location along the rotor centerline. 

The procedure which evaluates the maximum amplitude by iterative procedure is 
FINDMAX. A flow chart of this procedure is shown in figure 7. The program requires 
the following to be read as input data: 

Card 1 

1. SPEC - Allowable percent error on speed 
Card 2 

1. WO - Initial speed, rps 

2. DW - Increment in speed, rps 

3. WM - Final speed, rps 
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Figure 7. - Flow chart of procedure Findmax used in ROTOR 4M. 
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Card 3 

1. L - Length between bearings, in. 

2. LI - Distance from first bearing to mass center, in. 

3. L2 - Distance from second bearing to mass center, in. 

4. W - Rotor weight, lb. 

2 

5. IP - Polar moment of inertia, lb-in. -sec 

2 

6. IT - Transverse moment of inertia of rotor about mass center, lb-in. sec 
Card 4 

1. WM1 - First unbalance weight, lb 

2. WM2 - Second unbalance weight, lb 

3. HI - Distance from first bearing to first unbalance, in. 

4. H2 - Distance from first bearing to second unbalance, in. 

5. PHI - Phase angles between unbalance planes, deg 

6. R1 - Radius of first unbalance location, in. 

7. R2 - Radius of second unbalance location, in. 

Card 5 

1. P - Number of places other than the bearing locations where displacements are 

to be measured 

2. LZ1 - Distance from first bearing to first probe, in. 

3. LZ2 - Distance from first bearing to second probe, in. 

Card 6 

1. K1X - First bearing stiffness in x -direction, lb/in. 

2. K2X - Second bearing stiffness in x-direction, lb/in. 

3. K1Y - First bearing stiffness in y-direction, lb/in. 

4. K2Y - Second bearing stiffness in y-direction, lb/in. 

Card 7 

1. C1X - First bearing damping coefficient in x-direction, lb-sec/in. 

2. C2X - Second bearing damping coefficient in x-direction, lb-sec/in. 

3. C1Y - First bearing damping coefficient in y-direction, lb-sec/in. 

4. C2Y - Second bearing damping coefficient in y-direction, lb-sec/ in. 

Card 8 

1. D1X - Cross coupling damping coefficient, lb-sec/in. 

2. D2X - Cross coupling damping coefficient, lb-sec/in. 

3. D1Y - Cross coupling damping coefficient, lb-sec/in. 

4. D2Y - Cross coupling damping coefficient, lb-sec/in. 

Card 9 

1. R1X - Cross coupling stiffness, lb/in. 

2. R2X - Cross coupling stiffness, lb/in. 

3. R1Y - Cross coupling stiffness, lb/in. 

4. R2Y - Cross coupling stiffness, lb/in. 
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Card 10 

1. CONTROL - Identifier controlling the symmetry of bearings. If CONTROL = 0, 
we are dealing with symmetric case 

The data cards are in free field format. A comma should separate all data entries. 
A comma is needed after the last data entry. 

The output data is as follows: 

Column 

1 Speed, rps 

2 Coordinate (i.e. , bearing 1 or 2 or any arbitrary location) 

3 Amplitude, in. 

4 Phase angle of the amplitude WRT unbalance 

5 Major semi axis/amplitude of coordinate, DIM 

6 Minor semi axis/amplitude of coordinate, DIM 

7 Ellipse angle of major semi axis with x-axis 

8 Bearing location of maximum force transmitted 

9 Maximum force transmitted 

10 Phase angle of maximum force WRT unbalance force 

11 Percent cylindrical mode 

Columns 5, 6, and 7 give quantities needed to plot the elliptical orbit motion at the 
specified location (i. e. , bearing 1 or 2 or any arbitrary location). The following is an 
example of an orbit motion plot: 



Column 11 indicates the percentage of the motion that is of a cylindrical mode type, 
as opposed to the conical mode. 

A listing of the above computer program is given in appendix C along with sample 
output tables. 
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4.04 


Application of Four Degree of Freedom Unbalance 


Response Computer Programs 

As an example of the computer programs ROTOR4 and ROTOR4P, the following 
rotor is considered. The rotor and bearing characteristics are as follows: 


W 

WM1 

L 

LI 

L2 

HI 

H2 

R1 

R2 

IP 

IT 

PHI 

K1X 

K2X 

K1Y 

K2Y 

R1X 

R2X 

R1Y 

R2Y 

C1X 

C2X 

C1Y 

C2Y 

D1X 

D2X 

D1Y 

D2Y 


Rotor weight, 110 1b 
WM2 = Rotor unbalance, 0. 2 lb 
Distance between bearing centerlines, 30 in. 
Distance from first bearing to mass center, 15 in. 
Distance from second bearing to mass center, 15 in. 
Distance from first bearing to first unbalance, 0 
Distance from first bearing to second unbalance, 0 
Radius of first unbalance location, 2 in. 

Radius of second unbalance location, 2 in. 

O 

Polar moment of inertia, 0. 57 lb-in. -sec 

O 

Transverse moment of inertia, 21.6 lb-in. -sec 
Phase angle between unbalance planes, 0 
20X10 4 lb/in. 

1. 5xl0 4 lb/in. 

1.6X10 4 lb/in. 

1. 2xl0 4 lb/in. 

0 lb/in. 

0 lb/in. 

0 lb/in. 

0 lb/in. 

7. 0 lb-sec/in. 

7. 0 lb-sec/in. 

7.0 lb-sec/in. 

7. 0 lb-sec/in. 

0 lb-sec/in. 

0 lb-sec/in. 

0 lb-sec/in. 

0 lb-sec/in. 


The rotor performance was calculated for a speed range of 40 to 138 rps. Table B-I 
(appendix B) represents the rotor input characteristics and the rotor x or horizontal 
response for both bearings. The definition of the various rotor amplitudes, phase angles, 
and forces transmitted is given in section 4.02. Table B-II represents the rotor response 
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in the y or vertical direction. Table B-IH lists the rotor displacements and phase 
angles at arbitrary positions along the shaft corresponding to the number of places 
selected on input data card 4. 

As an example of ROTOR4P the data presented in tables B-I and B-II (appendix B) 
were plotted up by use of the plotter routine. These plotting procedures are designed 
to automatically scale the figures in 6- by 8-inch graphs. There are eight basic graphs 
that may be obtained depending on the card input data. All or only several of these 
curves may be plotted as desired. 

The first plot, figure 8, represents the horizontal and vertical motion at both bear- 
ings. Since the bearing stiffnesses in the s- and y -directions are all slightly different, 
we obtain 8 distinct peaks or critical speeds. For each generalized coordinate or dis- 
placement, we obtain two distinct peaks. The magnitudes of these peaks are directly 
influenced by the location and magnitude of the rotor unbalance and damping. For ex- 
ample, the first peak or critical speed in this particular example corresponds to a 
"cylindrical" resonance and the second corresponds to a "conical" resonance. The 
relative phase angle $ and plane of the unbalances will determine the magnitude of 
excitation of each mode. For example, if the unbalances were situated at the rotor 
mass center of a symmetric rotor, the conical mode would not be excited. 

Figure 9 represents the phase angles between the radial imbalance force and the 
displacement vector. Note that in the single degree of freedom model, the phase angle 
become 90° at the critical speed and goes to 180° above the critical. In the four degree 
of freedom rotor, the phase angle may vary from 0 to 360°. Figure 9 shows that at low 
speeds the two bearings are in phase and at higher speeds the two bearings are 180° out 
of phase. This also shows that the critical speeds need not occur with the response 
lagging the excitation by an angle of 90° and increasing thereafter continuously up to 
180° with increase in speed. The phase lag may decrease after the first critical is 
reached, as can be noted in the response at bearing number 1, and then continuously 
increase with increase of speed. 

Figure 10 shows the plot of angular amplitudes atj and oig with speed. On ex- 
amining figure 8 along with figure 10, it will be noticed that the higher criticals ob- 
served in the response plot of figure 8 are, in fact, the conical criticals. This conclu- 
sion can be deduced from the phase angle -speed plot also. As shown in figure 9, the 
relative phase difference between the rotor response at two bearings in 180° at higher 
speeds, hence, the occurrence of conical criticals at these speeds. 

Figure 11 shows the phase lag of conical responses with moment excitation in x-z 
and y-z planes. The angular responses lag the momental excitation by about 180° at 
low speeds, and this phase lag continuously increases to 300° with increase in speed. 

Figure 12 shows the force transmitted to the bearings in horizontal and vertical 
directions at different speeds with the specified bearing characteristics of the system. 
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The occurrence of the maximum force transmitted is at the critical speeds, as can be 
observed when compared with figure 8. 

Figure 13 shows the phase lag of the transmitted forces with respect to the excita- 
tion force with increase of speed. It can be observed that at low speed the forces trans- 
mitted in the two bearings are in phase, but as the speed increases the relative phase 
lag between the forces transmitted in two bearings increases. At very high speed they 
are out of phase with respect to each other. The trend of these phase angles, in the 
four degree of freedom system will be compared with a single degree of freedom system 
later. This leads to a very interesting result. 

Figures 14 and 16 are plots of the amplitudes of the rotor at ±15 inches from the 
first bearing, figures 15 and 17 show the corresponding phase angles. 

Figure 18 shows the plot of amplitude ratio against frequency ratio for a single 
degree of freedom system. Figure 19 is a plot of the corresponding phase angle with 
respect to excitation. It is well known that for a single degree of freedom system the 
response lags the excitation by 90° at critical speeds, which increases rapidly at low 
damping coefficient and the response is out of phase with respect to excitation at high 
speeds. However, the same conclusions cannot be reached in case of rotor-bearing 
systems where there is more than one degree of freedom. Figure 9, which is a plot of 
the phase angles of response at bearings number 1 and 2, shows that in the first bearing 
the phase angle gradually increases as the speed increases. At the critical speeds, the 
phase shift is not necessarily 90°, but may be more or less than 90°, nor does this con- 
tinually increase and reach a value of 180° at very high speed, as is observed in a 
single degree of freedom system. In the particular case considered, the phase angle 
at bearing number 1 reaches a maximum value, then decreases with increase of speed, 
and finally approaches a constant value of 180° at high speed, whereas the phase angle 
at bearing number 2 continually increases with increase of speed, and at high speed is 
lagging the excitation by 360°. This is quite an interesting and unexpected result and 
was not observed in the single degree system mathematical model. In reference 3 a 
plot of the phase angles of a six degree of freedom rotor-bearing system shows that the 
response may lag the excitation by 540°. Figure 9 may further be utilized to obtain the 
relative phase angle between the responses at two bearings. One important conclusion 
that can be drawn from this is that at low speed the responses at the two bearings are 
in phase with each other, but they are out of phase at high speed. 

Figure 20 shows the plot of transmissibility against frequency ratio for a single 
degree of freedom system. It can be observed that below a frequency ratio of 1. 41 the 
transmissibility increases with decrease of damping ratio, whereas above 1. 42 the 
transmissibility increases with increase of damping ratio. Hence, if the operating fre- 
quency ratio is below 1. 41, it is advisable to have a higher damping, and for a frequency 
ratio greater than 1.41, the damping ratio should be low in order that the transmissi- 
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bility remain at a low value. A damping ratio value of 4. 00 keeps the transmissibility 
almost constant in the entire frequency ratio range. 

Figure 21 is a plot of force transmitted/impressed force against frequency ratio for 
a single degree of freedom system. Here also, as in the case of transmissibility, the 
force transmitted increases with decrease of damping for frequency ratio below 1. 41, 
and above this the force transmitted increases with increase of damping ratio. This 
plot provides a method for choosing a value of damping such that the force transmitted 
remains at an optimum value in the entire frequency range. Figures 22 and 23 show the 
effect of damping on the system. Compared with figures 8 and 12, these show that the 
amplitude and the force transmitted to the bearings are considerably reduced. Fig- 
ures 24 and 25 show that with a damping of 30 pound-sec per inch, the amplitude and the 
force transmitted are reduced further and the response increases with an increase in 
angular velocity. The interesting feature of the addition of this extra amount of damping 
is that the resonance of the system does not occur any more at the two angular velocities 
observed previously. 

Figures 26 through 30 show plots of the output obtained from the ROTOR4M com- 
puter program. The plots shown are for symmetrical bearings; i.e. , the assumed 
stiffness in the x- and y-directions for both the bearings are identical. 

Figure 26 shows the cylindrical and conical critical speeds of the NASA gas bearing 
rotor for various values of stiffness. Since the bearing characteristics are symmetric, 
one cylindrical and one conical critical are obtained at a given stiffness. This shows 
that the system is susceptible to instability at the lower critical due to the conical mode 
and at the higher critical due to the cylindrical mode. 

Figure 27 shows the plot of rotor amplification factor 'A' against bearing stiffness 
for different values of damping. For a particular damping value, the amplitif cation 
factor increases with increasing stiffness, and for a constant value of stiffness the am- 
plification factor decreases with increasing damping. 

Figure 28 is a cross plot of the amplification factor against damping coefficient for 
various values of stiffness. The same conclusions as observed in figure 24 apply in 
this case. 

Figure 29 shows the plot of rotor phase angle at the cylindrical critical speeds for 
various values of bearing stiffness. For a particular value of damping coefficient the 
rotor phase angle decreases with increase of stiffness, and there is a decrease of phase 
angle with decrease of damping for a particular value of stiffness. This is shown in 
figure 30. 



BEARING AMPLITUDE 


O 



FREQUENCY [RPM3 *C10 -* ) 


Figure 8. - Bearing horizontal and vertical amplitude against frequency. 
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Figure 21. - Force transmitted against frequency ratio for a single degree freedom system. 
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Figure 22. - Bearing amplitude against frequency (four degree freedom system) at damping 
coefficient 15 pound-seconds per inch. 







BEARING AMPLITUDE *U0 *) 

8.000 13.000 18.000 23.000 28.000 33 J 300 38.000 




FORCE TB8NS. *(10**) 

1.700 3.700 5.700 7.700 9.700 11.700 13.700 








ROTOR AMPLIFICATION FACTOR A 



BEARING STIFFNESS, K x IO“ 5 Ib/in 


Figure 27. - Cylindrical critical speed rotor amplification factor against bearing stiffness. 
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Figure 28. - Cylindrical critical speed amplification factor against damping coefficient. 
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PART V 


STABILITY AND GENERAL TRANSIENT ANALYSIS 


5.01 


Stability Analysis of the System 


In part IQ of this report a method to obtain the steady state solution of the system 
was shown. This, however, is insufficient to predict completely operation of the sys- 
tem. The stability characteristics of the system must also be known. 

The homogeneous equations of motion are solved to get the time dependent transient 
solution. The homogeneous equations of motion for the general four degree of freedom 
system are: 


*l x 2 + 


¥1 


K lx x l + K 2 x x 2 + R l y yi + 


R 2y y 2 + C lx x l + 


C 2x x 2 + 


D ly y l + D 2y y 2 = 0 


(5.1) 


*l y 2 + £ 2 y l + K ly y l + K 2y y 2 + 


R lx x l 


R 2x x 2 + C ly y l + C 2y 


y 2 + D lx x l + D 2x x 2 = 0 


(5.2) 


R t (x 2 - x x ) + RpW(y 2 - y x ) + K^IgXg - + R 2y £ 2 y 2 

" R ly £ l y l + ^2x^2 " 5 1 x £ 1 x 1 + 5 2y^2 y 2 " 5 ly fi l y l = 0 3 > 

R T ( y 2 " y l> “ R p w ( x 2 " x l> + E 2y £ 2 y 2 ' R ly £ l y l + R 2x £ 2 x 2 

- R lx £ l x l + C 2 y^2 y 2 - Wl + °2x V2 - 5 lx*l x l = 0 < 5 - 4 > 


To obtain the characteristic equation, we assume a solution of the form: 

X 1 = A i eXt x 2 = A 2 eXt Yi = A 3 eXt y 2 = A 4 e At (5. 5) 

If the above solution (5. 5) is substituted into equations (5. 1) to (5. 4), equations are 
obtained which can be written in the following matrix form: 
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A 2 + K 1x 

A 1 + K 2x 







^ly + R ly 

AD 2y + R 2y 


A 1 

+ *c lx 

+ X ^2x 







X 2 £ 2 + Ki y 

X 2 £j + XC ly 



^1* + R lx 

^2x + R 2x 




A 2 



+ XCi y 

+ ic 2y 



-x 2 Er - xc lx4l 

X 2 R,p + XC 2x £ 2 

-X(R p 0> + 

X(R p w + D 2y £ 2 ) 








A 3 

' "Vi 

+ ^2x £ 2 

- R ly *l 

+ R 2y £ 2 



X(R pW -D lx £i) 

^X(R p a. - D^g) 

-X 2 Rp - XCjylj 

X 2 Rrp + XC 2x £ 2 








A 4 

- R lx*l 

+ R 2x^2 

-Vi 

+ ^2y £ 2 






_ 


_ _ 


In order to have a nontrivial solution the determinant of the coefficients Ap A£> 

Ag, and A 4 must vanish. This will give us the characteristic equation, which is of the 
form 

A/ + A 1 X 7 + A 2 X 6 + A 3 X 5 + A 4 X 4 + A 5 * 3 + AgX 2 + ArjX + A g = 0 (5. 7) 

Knowing Aq, Ap . . . , A g , the above equation can be solved to get the roots of 
the equation, X. X is usually complex, and is of the form 

X = P + is 


Here, P may be positive or negative or it may be zero. This, in fact, predicts the 
decay or growth rate of the motion of the system. If P is negative, then the system is 
stable, and the motion decays with time. If P is positive, then as is obvious, the 
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motion grows with time and never comes to a stable situation. On the other hand, if P 
is zero then the system is said to be on the threshold of stability. The values of the 
parameters controlling the system keep it stable. If the parameters are changed, the 
system either becomes permanently stable or unstable. 

The expansion of the characteristic determinant, as shown in equation (5. 6) into the 
form of (5. 7) even for this four degree of freedom system, by the usual procedure to 
expand a determinant, is formidable. This is much easier to do numerically on a 
digital computer. This has been done in the computer program ROTSTAB to compute 
numerically Aq, Ap . . . , A g , and has been used to find the roots of the character- 
istic determinant. The real part of the root, as has already been observed, gives the 
decay or growth rate and the imaginary parts, the natural frequencies. 

The computer program ROTSTAB is described in detail in 5. 02. 

Besides the above method of determining the stability criterion, the Routh Hurwitz 
criteria can be used to determine the stability of a system. 

If the characteristic equation is given in the form 

N k 

2 A N-K^ “ ® (5*8) 

K=0 


Then the Routh Hurwitz criterion is given by the following determinant: 


o 

Q 


D 1 

D 2 D 3 


D 4 



A 1 ! 
i 

A o 

! o 

i 

i o | 

. i 

0 

1 

! 

1 
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A 3 

A 2 

! A i 

! A 0 | 

0 

i 

i 

1 
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— 

— 

_j 

i i 
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; a 2 i 
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— 
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1 > 
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A 8 

A 7 
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(5.9) 


The condition for stability is that the determinant D N must be positive. 
Thus, 
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D q = Aj > 0 


~\ 


D 1 " A 1 A 2 " A 0 A 3 ^ 0 I 

D 2 = A 3 D i " A l( A l A 4 “ A 0 A 5^ > ® 
Dg > 0, for stability 


(5. 10) 


For systems larger than fourth order, the Routh-Hurwitz determinant method be- 
comes cumbersome and unwieldy to use. It is often preferable in such cases to use the 
original Routh method as given below. 

Consider the following array: 


where 



(5.11) 



- AqA 3 /Aj 

- AqA^/Aj 

- AqA 7 /A 1 

- AjCg/Cj 

- AjCg/Cj 


A 


> 


D 2 ~ A 5 A 1 C 3 //C 1 J 


(5. 12) 
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Figure 31. - Rotor motion of 



i 


NASA gas bearing in system 







The necessary and sufficient condition for stability is that all of the coefficients of 
the first column of the array (5. 11) must be positive. 

This criterion of stability determination has been included in the program ROTSTAB. 


5.02 Description of Computer Program ROTSTAB - Transient Solution of System 

Figure 31 shows the experimental plot of the rotor amplitude against the rotor 
revolutions per minute of the NASA Lewis rotor. It was observed that the system goes 
unstable at 26 700 rpm. The stiffness values that have been indicated at the occurrence 
of the rotor critical speed have been obtained experimentally. 

The numerical values of the stiffness and damping factors obtained experimentally 
are fed in as input data with different values of the cross coupling stiffness term in the 
ROTSTAB computer program to determine the attitude angle at which the rotor will be- 
come unstable. The output obtained at a running speed of 27 000 rpm is shown in 
appendix D. The calculated critical speeds follow quite closely those given by experi- 
mental results. The system is found to become unstable at a cross coupling stiffness 
of 127 000 pounds per inch. Hence the attitude angle will be given by 

c^tan-^Wn- 1 /*^ 

\R/ \127 000 

The whirl ratio at the threshold of stability is 0. 73511, which corresponds closely with 
the experimental results. 

As is obvious from the results obtained, this analysis provides the information re- 
quired to change bearing characteristics to make an unstable system stable. 



5. 03 Special Case - Symmetric Bearing and Rotor 

If we assume 


K lx R 2x 

K x 

2 

Clx = ^2x = 

Cx 

2 

*ly = *2y = 

Ky 

2 

^ly = ^2y = 

Cy 

2 

R lx = R 2x = 

Rx 

2 

D lx = D 2x = 

D x 

2 

R ly = R 2y = 

Ry 

2 

R ly = R 2y = 

Ry 

2 
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and 



— = P = 0.5 
L 


then the equations of motion are simplified considerably. From the above assumption of 
bearing symmetry we observe = x 2 = x and y^ = y 2 = y. 

Equations (5. 1) and (5. 2) then reduce to: 


x + KjjX + Ry.y + + D y = 0 

y + Kyy + R^x + c y y + D x x = 0 


Equations (2. 42) and (2. 43) reduce to: 


x •• T ■ K X _ 2 D y T 2 • ^x 2 • n y T 2 n 
I T «j + IpWOg + — L + ~ L Q! 2 + ~ L a l + o L a 2 = 0 


C* 

2 


h 

2 


i T i 2 - ^ * h L 2 c 2 ♦ ^ ♦ El L 2 i 2 ♦ h - 0 


(5. 13) 
(5. 14) 


(5.15) 

(5. 16) 


It is to be noted that the two pairs of equations (5. 13), (5. 14) and (5. 15), (5. 16) are 
uncoupled. The first pair represents only the cylindrical mode and the second pair, the 
conical mode in a given system. 

We now assume solutions of the form: 


x = A^e^ y = A 2 e^ a-^ = Age^ a 2 = A^e^ (5. 17) 

Substituting (5. 17) into equations (5. 13) and (5. 14), we obtain the characteristic equation 
for the cylindrical mode which is 

X 4 * X 3 p y X C x ] + X 2 Jky + K, + C x C y - D x D y ] 

+ x [ K y C x * V>y ‘ V>x ’ Vy] * [V, ’ Vy] * 0 < 5 ' 18 > 

Substituting equation (5. 17) in equations (5. 15) and (5. 16) and after some algebraic 
manipulations, the characteristic equation for conical mode is obtained: 
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(5. 19) 


r£a 4 + Rp(C x + C y )X 3 + X^K* + Ky) + C x Cy + ( RpU> + D y ) (R p o> - D x )J 

+ X [l^Cy + KyC x + Ry(R p o> - D x ) - ^(RpCO + D y )] + (K^Ky - R*Ry) = 0 


where 



and 


etc. 


I T = MKj 

Ip = mk| 

~ 2K x 

K x = — 
x M 

2C 

C =_3 
x 


M 


5. 04 Computer Program to Find Stability of Symmetric System (STABIL4) 

This program uses equations (5. 18) and (5. 19) for the stability analysis of a sym- 
metric bearing system. The cylindrical and conical modes are evaluated separately. 

The real part of the roots gives the damping or growth rate and the imaginary part, the 
natural frequency of the system. If the real part of the root is negative, then the system 
is stable; if positive, it is unstable, and if zero, the system is neutrally stable. 

The input data to the program is as follows: 

Card 1 

1. N - Highest power of the polynomial (in this case, always 4) 
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Card 2 
1. 

2 . 

Card 3 
1. 

2 . 

Card 4 
1. 

2 . 

Card 5 
1. 

2 . 

Card 6 
1. 

Card 7 

1 . 

Card 8 
1. 

2 . 

Card 9 

1 . 

For the first case, card 1 should be included, and for each additional cases cards 2 
though 9 must be punched with proper data. 

The data cards are in free field format. A comma should separate all data entries. 
A comma is required after the last data entry. 

The output data is as follows: 

Cylindrical mode: 

1. The coefficients of the polynomial in ascending power 

2. Column 1 - Real part of the roots 

Column 2 - Imaginary part of the roots (cylindrical natural frequencies) 

Conical mode: 

1. The coefficients of the polynomial in ascending power 

2. Column 1 - Real part of the roots 

Column 2 - Imaginary part of the roots (conical natural frequencies) 

The heading printout is as follows: 

Line 1 - 1^, Ky, 1^, Ry 
Line 2 - C^, Cy, ^x’ ^y 
Line 3 - I p , Ip, L, W 
Line 4 - Speed, rps 


Kjj - Stiffness in x-direction, lb/in. 

Ky - Stiffness in y-direction, lb/in. 

C x - Damping coefficient in x-direction, lb-sec/in. 

Cy - Damping coefficient in y-direction, lb-sec/in. 

Rjj - Cross coupling stiffness in x-direction, lb/in. 

Ry - Cross coupling stiffness in y-direction, lb/in. 

D x - Cross coupling damping coefficient in x-direction, lb-sec/in. 
Dy - Cross coupling damping coefficient in y-direction, lb-sec/in. 

L - Length between bearings, in. 

W - Weight of the rotor, lb 

2 

Ip - Polar moment of inertia of the rotor, lb-sec/in. 

Irp - Transverse moment of inertia of the rotor, lb-sec/in. ^ 

OMEGA - Angular speed of the rotor, rps 
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PART VI 


CONCLUSIONS AND SCOPE 

1. The equations of motion that have been presented here consider 13 degrees of 
freedom, taking into account the axial movement of the system and the eight degrees of 
freedom for the two bearing housings. Equations (2. 25) to (2. 38) represent the gen- 
eralized system equations of motion. The steady state analysis in this report assumes 
a constant angular speed and rigid housing. For preliminary design analysis of a rigid 
body rotor bearing system, the curves shown in figures 23 to 30 (pp. 55 to 62) are useful 
in finding the critical speeds for certain bearing characteristics. 

Figures 7 to 16 can then be used for investigating the amplitudes, phase angles, and 
force transmitted for the speed range in which the rotor is expected to operate. 

2. The analysis does not consider any particular type of bearing, but the equations 
of motion can be applied to any type of rotor-bearing system. In order to investigate 
the steady state and transient behavior of the rotor, the Reynold’s equation must be in- 
cluded and solved to obtain the pressure distribution and the radial and tangential forces 
in order to find the bearing characteristics. These can be utilized to solve the steady 
state and transient equations for the system. 

3. The assumption of a rigid bearing housing can be discarded, retaining the 
assumptions of small amplitude and constant rotor speed. This results in twleve 
coupled linearized second order equations. The axial motion equation, being uncoupled 
from the rest of the system equation, can be solved independently. These twelve equa- 
tions can be used to investigate the effect of the flexible housing on the entire system. 

4. The twelve linearized equations of motion can be further investigated in order to 
find the threshold of stability by applying Routh’s criteria. By varying the various bear- 
ing parameters, the threshold of stability can be obtained and the optimum bearing char- 
acteristics for stable operation of the system determined. 

5. The nonlinear equations of motion can be further analyzed to obtain the time- 
transient solution by numerical integration. Being time consuming, this may be applied 
only in particular critical situations. This orbital analysis will further supplement the 
threshold of stability analysis as indicated previously. The possibility of obtaining 
time -transient solution by numerical integration may further be extended to observe the 
effects of shock loading on the system. 

6. Figures 20 and 21 show the transmissibility and force transmitted against fre- 
quency ratio curves for a single degree of freedom system. These curves are useful 
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for finding the optimum damping values if the rotor is expected to operate over a wide 
speed range. These curves give an approximate idea of the rotor -bearing behavior if, 
by making simplifying assumptions, the system is reduced to a single degree freedom. 
In order to get more accurate data for the opimization of damping values, the program 
ROTOR4P could be extended to plot similar curves. 

7. The plots of phase angle between response and excitation show that they may 
exceed 180°. This differs from the results of simplified analyses. These phase angle 
plots may be used to predict whether a system will go unstable in a cylindrical or coni- 
cal mode. 

8. The derived equations of motion can be utilized to investigate further the effect 
of gyroscopic forces on the system. 

9. The analysis and design data presented in this report are applicable to a general 
RIGID -BODY rotor bearing system. However, they can be extended to a flexible rotor- 
bearing system as indicated by Poritsky in his simplified analysis in reference 7. 
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APPENDIX A 


A -0 1 DERIVATION O F KINETIC ENE RGY O F ROTATION O F ROTOR 

Consider x, y and z the fixed reference frame. If we assume that the rotor 

undergoes small angular displacements in the x-z plane and in the y-z plane, 

then in order to arrive at the kinetic energy of rotation of the rigid rotor, it is necessary 

to express the resultant angular velocity fixed in the body. Let iT , n , and iT be the 

x y z 

unit vectors in the direction of the fixed reference frame as shown in figure 32. In this 
figure the final configuration of the rotor is shown. To arrive at the expression for 



angular velocity vector with reference to the axes fixed in the body, consider three 
angular rotations, one at a time. 

Figure 33(a) shows the first rotation in the x-z plane and figure 33(b) shows 
the second rotation a ^ in the y-z plane. Then the rotor is rotated about its axis by an 
angle a 3 . 

The angular velocity vector with respect to the body axes will have three compo- 
nents along n”, n'', and n". Now 

y x z 

« = -“2 + “l n y + “3 n ’z (A" 1 ) 

From figure 33(c) 

+ n^' cos £¥3 - n^ T sin a 3 (A-2) 


From figure 33(b) 
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Figure 33. - Rotations from fixed reference frame. 


n y = cos a 2 + n” sin a 2 


From fig. 33(c) 


n^. = n^* cos a 3 + sin a 3 


Substituting equation (A -4) in (A- 3) we obtain: 


ny = n^' sin a 3 cos a 2 + n ” cos a 2 cos o-g + n ' ” sin a 2 


(A -5) 


Substituting (A -2) and (A-5) in equation (A-l) we obtain the angular velocity vector 
fixed with the body 


= n ^' £-<*2 cos a 


2 + a l sin o> 2 cos a 2 


>J + n” jdig sin a 3 + cos oig cos Q-gJ 

+ n” [a, sin a 2 cos a> 2 + a; 3 J (A-6) 


Since a j, a 2 and are assumed small, equation (A-6) can be written as 

S2 = -a 2 n” + ctj cos <* 2 n y + (“i sin a 2 + “3) n z 


(A -7) 


The kinetic energy of rotation of the rotor is given by: 


t r = | ’i' "x 2 + i V “y 2 + 1 £ "z 2 
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From (A -7) 


For a rotor 


"x = “*2 


w” = (ij cos a 2 
u >" = an sin Q! 0 + a. 


‘1 


1^’ + I” = I,p = Transverse moment of inertia 
I” = Ip = Polar moment of inertia of the rotor 


. T 


R 




i ..2 

h w z 


= \ hfel + “i cos2 “2) + \ ^(“i sin a 2 + “3)' 


A. 02 Derivation of Kinetic Energy of Unbalance Masses 



Figure 34. - Location of rotor unbalance masses. 

The position vector of the first unbalance mass is given by 
-6M 1; /0 

P = Pj n” + Rj e x 

= Pj n^.’ + R-^cos a 3 n£ + sin a 3 ffp 


(A -9) 


(A- 10) 
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The velocity of 6Mj is given by 


R^SMx/O = K 6P + R^R’ x p6M j/ 0 
St 


From equation (A -7) 


R, R 


or 1 = ~ a 2 ”x + “l cos a 2 n y + (“i sin a 2 + “ 3 ) n z 
“ ~ a 2 "x + a l + a 3 % 


. R o, R ’xP = 


n! 


"x “y 

-a 2 a t a % 

Rj cos 0-3 Rj sin 0-3 Pj 

= *Q( a iPi ~ a 3 R i sin “ 3 ) + ^'(o^l + “3 R 1 cos ^ 3 ) 

+ n”(-a 2 R i si 11 “3 - a i R i cos <*3) 


(A-ll) 


(A- 12) 


(A- 13) 


The total velocity of 6Mj is, therefore, from equation (A-ll), 

Ry^l 70 = (i m + p 1 i 1 - agRj sin a 3 )^ + (y m + P ^ + R^g cos ajn" 

+ (z m - Qf2 R l sin a 3 ~ “l R l cos “3) n z’ (A- 14) 

Assuming that the second unbalance mass is displaced from the first by a phase 
angle $>, then the velocity of the second unbalance mass is given by: 

R V 6M 2/0 = [x m + P 2 a 1 - « 3 R 2 sin(a 3 + ®)] ^ + [y m + P 2 « 2 + « 3 R 2 003(0-3 + *>] "y 

+ jz m - R 2 |d- 2 sin(o- 3 + *) + o-j cos(o-3 + *)]} n z (A-15) 


The kinetic energy of the unbalance masses is then given by: 
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T„ = i SMj V® 1 ! • V 6M 1 + I 6M 2 V 6M 2 ' V SM 2 
2 2 

= - 6Mj (x m + P^Of^ - «3 R i sin <*3)^ + (y m + PjQ! 2 + R ^a 3 cos <13)^ 

2 L_ 

+ (z m - a 2 R ! sin a 3 ~ “i R l cos a 3^ 2 J 

-f I 6M 2 ^[i m + P^j - i 3 R 2 sin^g + $)] 2 + [y m + P 2 a 2 + a 3 R 2 cos(c* 3 + $)] 2 

+ |z m - R 2 [^2 s ^ n ( a 3 + ®) + cos(o> 3 + $)|| 2 ^ (A-16) 

The kinetic energy of unbalance can be written in more general form with unbalance 
masses as: 


T U = 5M i { [^m + p i“l " “3^ sin ( Qf 3 + ^i)] 2 + [* m + Pi « 2 + R i<*3 cos ^3 + ^i>] 2 } 

6 i=l 

+ [z m - a^i s ^(®3 + ®i) ~ “i R i cos(a 3 + <$)J 2 (A-17) 

The phase angles ^’s are measured with respect to the first imbalance mass; 
hence, = 0. 
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APPENDIX B 


D ' 


LISTING AND SAMPLE OUTPUT OF COMPUTER PROGRAM ROTOR4P 


PLOT PACKAGE 


COMMENT THE DRC CAI.COMP PACKAGE HAS BEEN INSERTED AT THIS POINT; 

ALPHA FILE OUT PLOTTER 2 ( 1, 376, SAVE 1 I ) 

FILE OUT SPO 11(1.10)) 

PROCEDURE SYMROLC X 0 / YO, HGT, BCD. THETA/ N)i 

VALUE XO, YO, HGT/ THETA/ N» 

INTEGER N; ALPHA ARRAY BCOIOj; 

REAL XO/ YO/ HG T / THETA; FORWARD; 

INTEGER ARRAY PLOTARREYA C 0 : 502 I / PLOT A RRE Y A 1 / PLO T ARRE Y A2 1 0 ! 8 I S 
INTEGER ARRAY ' S YMBUL A RRE Y A [ 0 : 1 1 2 3 , S YMBOL A RRE YB [ - 1 5 5 6 3 ] ; 

ALPHA ARRAY PLOT TER 8 CDEF t 0 '• 3 3 S 

PROCEDURE PLOTCX/Y/IC) ? 

VALUE IC 8 REAL X.Y / INTEGER IC ! 

BEGIN 

PROCEDURE TALK; 

BEGIN 

array messiomoi; integer ilk; 

fill ME 5S C * I WITH "OPERATOR/ SET PLOTTER TAPE TO LOW DENSITY AND PU 
RGE. <■"! 

WR1TECSP0/7 »MESS[*3)8 

END/ 

DEFINE M = 4 9 B t i COMMENT M + 2 MUST HE A MULTIPLE OF 4) 

COMMENT UPPER BOUND FUR PLOTARREYA MUST BE AT LEAST M+18 

COMMENT BUFFER SIZE MUST BE AT LEAST Jx(M)-2 3/4 + 18 

LABEL AUSz EINSH/ UN/ LI/ FIRST; 

DEFINE A = PLOTARREYA *, 

A 1 = PLOT ARKEYA 1 #, 

A 2 = PLOTARREYA? #8 
DEFINE BI.KNU = PLOTIERBCOEE *8 

PROCEDURE PACK (A/ NU VALUE MI 

ARRAY A C 0 3 8 INTEGER N 8 

BEGIN 

INTEGER I.J 8 

i + -is j <- o; while j s n do 

BEGIN 

ACI+l+13 + AU+1I.C128121 & ACJlCi: 13i35]8 J + J + 1 /’ 

ACI+l+13 + ALJ+1 J.C 12 8 24 3 R A C J 3 C 1 s 25 t 2 3 3 8 J <• J + 1 / 

AC 1*1 + 1 1 + A I J + 1 3 & AC J 3 C 1 8 3 7 i 1 1 3 / J + J + 2 

END 

END OF PACK 8 

OWN BOOLEAN FIXED/ NUTAPL, BOOL/ PEN/ 

OWN INTEGER 1/ NP X / NPY. BA/ T/ BUF 8 

OWN REAL LENGTH, RECORD; 

INTEGER J/K/JJ/NX/NY/DX/0Y/IX/IY/NR/NT/NC/II1/II2/NA.JJ1 8 

INTEGER SNP Y / SNPX/ i SEE; 

DEFINE TAPECK = 

LENGTH + LENGTH + RECORD; NUTAPE «■ LFNGTH > 900 tS 
DEFINE NIJBUFF = 

BEGIN A C I 3 *■ "34 «- PACK CA/ M + 1); 

WRITE (PLOTTER/ 8 UF, A C * J 3 J 

tapeck; startplut end t ; 

DEFINE STARTPLOT = 

A 1 0 3 «■ "444444"; AC13 + "444433"8 AC23 + "333332"; 

1 + 3 * ; 

IF TC > 3 OR IC <-5 THEN GO TO AUS 8 
1 SEE + ICS 
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IF IC < -3 THEN IC + -3; 
IF NOT FIXED THEN 


BEGIN LABEL DUMMY j 

FILL Alt*] WITH OCT50500000000,OCT50600000000>QCT50 7 OOOOOOOO , 

UCT60500000000»QCT60600000000,OCT60 70000 0000 » 

OCT 7 05 OOOOOOOO, OCT70600000000,OCT7070000(>000 } 

FILL A 2 t * 3 WITH UCT50500* 0CT50600, 0CTI50700, 0CT60500, OCT6O6OO, 

OCT60700,OCT70500»nCT70600.0CT70700 J 
NPX + NPY + O; BA + IF I SEE = -A THEN 0 ELSE II 
LENGTH «- OJ NUTAPE <- FALSE; RECORD +( 6x ( M+ 1 ) 7200+0 . 7S ) /I ? 
bUF + 3 x (M+2) / 4 + i; BDOl. + PEN + TRUE; 

FOR I + 1 STEP 1 UNTIL 5 00 

BEGIN 

WRITE (PLOTTER, BUF > AC*]); 

IF TIMEC1) - T < .017 x BUF + 1 AND 1 > 2 THEN 

BEGIN 

CLOSE (PL OTTEK.SAVE); I + o; 

talk; 

end; 

T + TlMt(l)* 


end; 

GO TO finsh; 


end ; 

FIRSTS FIXED + TRUE! 

IF IC = 0 THEN 

BEGIN 

X «• NPX/100; Y + NPY/100; GO TO AIJS 

end; 

IF BliOL THEN T + "006006"; 

IF ARS(IC) = 2 THEN 

BEGIN 

IF NOT PEN THEN GO TO ON ! 

IF BOOL THEN T + "0007006" ELSE T + T + l; 

END 

ELSE IF ABS(IC) = 3 THEN 

BEGIN 

IF PEN THEN GO TO ON t 
IF BOOL THEN T+ "005006" ELSE T + T - 1; 

END 

ELSE GO TO DM ; 

PEN + NOT PEN ; 

Am + IF BOUL THEN T + "660660" ELSE T + "000660"; 
WOOL + TRUE i 

i + i + 1 ; 

JJ + IF ABS(K) = 2 1 HEN 8 ELSE 2} 

FOR K + 1' STEP 1 UNTIL JJ DO 

BEGIN 

if i > m then nubuef; 

ACID + "666666"; I + I + U 

END ; 

T <- "006006"; 

I + 1 - 1 ; 

ON: NX t 100.0 * X > NY+lOO.OxY > 

DX+NX-N^X ; DY+NY-NPY i 
NPX + NX ; NPY + NY ; 

IF DX > 0 THEN 
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IF OX = 0 THEN IX <■ 3 ELSE 1X4-6 ELSE I X *■ 0 i 
IF DY > 0 THEN 

IK DY = 0 THEN IY «■ IX + 1 ELSE IY «• IX + 2 ELSE IY «■ IX } 
IF ASS COX) > A8SCDY) THEN 

BEGIN 

INK 4- AHSCDY) ,' NC «• NT «■ ARSCDX) ; 

IX 4- IX + 1 > 

END 

ELSE 

BEGIN 

MR <- ABSCDX) ? NC 4- NT 4- AB6CDY) 5 

IX 4- IY - IX + 3 ; 

END ; 

NA «• NT DIV 2 I 
L. 1 * IF NC # 0 THEN 

BEGIN 

NA 4- NA + NR J 

IF NA > NT THlN 

BEGIN 

IF BDUL THEN I *■ T + AltlY] 

ELSE T 4- T + A 2 [ I Y I ; 

NA 4- NA ” NT * 

END 

ELSE 

ft F G I N 

if BnoL then I 4- t + auixj 

ELSE T 4- T + APT 1X3 J 

END J 

hupl 4 - N.OT snuL ; 

IF FOUL THEM 

BEGIN 

a [ 1 1 «• t ; I «- i + 1 ; 

T 4- '*006006"* 

IF I > M THEN NUBUFF* 

FMD 

NC «• NC - 1 ; 

GO TO LI ; 

EnOJ 

IF M.ITAPE AND ABSCIC) = 3 THEN 

BEGIN 

NUTAPE «- FALuE* LENGTH 4- 0 * 

SNPX «• NPX> SNPY 4- NPY J 

plutco,o>”1 >; 

LOCK (PLOTTER, SAVE)* BA 4- BA -2 ; 

plot ( 0 , 0 , -n; plot csnpx/ioo, snpy/ioo, n; 

end ; 

IF IC < 0 THEN 

BEGIN 


if bool them i 

*1-1 ELSE A C I ] * T + ”000660 

I <• i + 1 } 

NUbUFF ; 

HU ML 4- TRUE i 


NPX 4- NPY «- 0 


IE ISEE > -5 

THEN 

REGIN 


FIN6H: 


j j<-b a; ma4-o; 



81 


for k *■ o* 2 * 4 oo 


BEGIN 

j «■ jj mod io; jj «• jj oiv io; 

NA *■ NA + ( C 4 + J MOO 4 ) + ( 4 + J DIV 4) x 64) X 64 * K 

end; 

STARTPLOT; A f 6 0 3 *■ AC23; A [ 2 ] «■ A C 2 1 - 1 r AC33 «- NA; 

A r 4 ] «• "133333"; ACS) «• "334444"; AC59J <- Atl); 

FOR JJ <■ 6 STEP 1 UNTIL SB DO ACJJ3* ACO); 

BA <■ BA + U I «- 6i; NUBUFF 

end; 

IF ISEE = -4 AND FIXED THEN 

BEGIN 

BLKNUC03 <- "START "I BLKNOU) *■ "OF BlO"; 

BLKNOC23 <- "CK 000"; JJ <• BA - If 
FOR K <■ 0,1*2 DO 

BEGIN 

j «- jj mod io; jj <- jj oiv io ; 

BLKN0I2) <• BLKN0C2) + J x 64 * K 

end; 

SYMBOL (0.1*1.4*0.07* BLKNO * 270, 18); 

PLOT (l*0*-5) 

END ; 

IF NOT FIXED THEN GO TO FIRST* 

end; 

END UF plot; 

SYMBOL C XO* YO* HOT* BCD* THETA* N) i 
XO* YO* HGT * THETA* N i 
N ; 

XO, YO* HGT* theta ; 
alpha array Bcnroi ; 

BEGIN 

INTEGER 8 1 NX * AC* W* nsC, AINX* I, MUVE; 

real XA* YA, X* Y* XN* yn* osts; 

OWN BOOLEAN FIXED* BOOLEAN LP, M7; 

DEFINE A = SYmBOLARREYA #, B = • SYM8ULARREYB 

label yi* el, exit* loads; 

IF NUT FIXED THEN 

FILL A C * 3 WITH 0CT10 3 041 4 63717060* OC 1 1 1 0000000000000 * 

OCT 10 30 2027 1600000 *UCT4000014S46 37 170* OCT 60 500000000GODO, 
OC TO 1 10304 14 334 14 3 * OC T4 4 5 4 6 37 1 7060000 ,0C TO 7 0 34 33337 30 20 4 * 
OCTOOuOOOOODOOOOOO*OCT01 10304 1 43 3404 0*0CT7 4 7 000 000000000* 
0CT03 14344 34 1 301 00* OCT 106 173746000000, 0CT06074721 2000000* 
0CT34434 1 30 lOO]O31*0CT4 34454637170608, OCT) 400000 00000000* 
DC TO 1 10 304 146 37 1 70 * 0CT60 4 133 344000000 *0CT1 1 15 1404 14 1 2024 , 
OCT 2 32 31 35 3 4440400* OCT 31 33131 141 4 404 0, OCT 04 0000000000000, 
OCTOOO 0 0 OOODOOOOOO* OCT 10 1 12 120 10 70222* OCT 34546 3 7 17060000, 
UCT1 1 122221 1 17 014 1 , OC T525 24 1 4 00000000* OC TO? 4 4 06 0 00000000 * 
OCTO 14 17006 4402000* OCT 2 1 25230 34 300000, OcTOOO 3 4 346 37 17060* 
l)C T3434000000OO000 , UCT0407 37 464534040, OCTO 30 4 14 334000000 , 
OCT424130100106173*OCT746450000000000*UCT000737464130000, 
DC T47070434 0400400 *GCT470 704 340400000 *0CT4 33 34 341 3010010* 
0CT61 7 37 46450O0000*0CT00070 44 447 40000* OCT 1 0 30?0?7 17 3700 0 , 
OCT 10 20 21 11 1 000000, OCT 30 101 7370000000, OCT 36 27170 60540 31 4* 
0CT220 10010 31 40 000* OCT 30 1 21 5370000000, OCT 46044 20 00000000* 


AUSS 

PROCEDURE 

VALUE 

INTEGER 

REAL 
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0 CT 4404l5l3D400000,DCT01452 30 54100000, 0CT011O 3041 4700000, 
OCTOO 07034725400 00, OCT070040000000000»OCT000723474000000* 
OC T0007 4047 00OO000, OCT 10 304 146 3770 36 4, 0CT770 37 170601 1000, 
f)CT00073 7 46 4 534 040, OCT 100106173746413, OCT010702240000000, 
OCT 000 7 37 4 6 45 J40 4 3 , UC T 4 4 3400000000000 , OC TO 2 324 3 34 1 40 5 1 6 4 , 
0CT62627 200 3000000, UCT01 452 3054123034, OCT 323252100000000, 
0CT034 3 00000000000, OCT 1032351 7 0000000, OCT102122121121702, 
HCT425 15 142 4000000, UCTO 14 170420446000, 0 C TOOOOOOOOOOOOOOO , 
0CT0O470000 OOuOOOO, OCTO 110 304 14 334 140, 0CT506 17 37 46000000, 
OCT 20 2707470000000, 0CT0701 10 304 147000, 0 CT0720 4 7000000000 , 
OC TO 700 24 40 4700000, OC TOO 4 7700 7 4000000, OCTO 7 25 47 25 2000000, 
OCT074 7 241434240 04, 0CT00000O0 o 000O00Q,0CT102122121121000, 
OCT004770160607171,UCT670413130404100,OCT024635450535130, 
0CT3 4 3000 OOOOOOOOO, OCTO 24270044400000, OCTl 03037 170000000, 
OCT 14167 0 363400000, 0C.T0040440 40004242, OCT200000000000000, 
OCTOO 44 2204 40 22000, 0CT004O004404 44220, OC TOO 400 4 4 400 22000 , 
OCT 24 34 4 34 1 30 10010, 0 C T 3 1 4 24 2200000000 , 0 C T 244 2 200 224 22000 , 
OC T2022 4 4220422000, OCT 222422000000000, QCT240141242200000, 
OCT240?4224202 2000,OCT44331304 131 100 1, OCT 131403133220 000, 
OCT 1036500464 10702, OCT22^000000000000,GCT024222 20 24 22000, 
0 C T00440440 2200000, UCT00442? 24 2022044, 0CT022024 2 2 2000000 
i F NUT F I X E 0 THEN 

FILL B C * ] WITH 0CT30157 , OCTl 2 156, OCT 14155, UCT 2 2153, 
llCT3215l,0CT14150,ncT 12147, OCT06146, OCT 14145, 0CT14144, 
I1CT26 l4 2,r)CT14 141 ,0CT16 14 0,f)C T 14137,0CT20l 35,0CT22000, 
nCT1?002,OCT?2003,ncT32005,nCT20007,OCT22011»OCT3o013, 

UCT 1 20 1 5, UCT400 16, OCT 300 21, OCT 340 2 3, OCT 220 25. OCT 320 30, 

OC T 2603 2, UCT06034.0CT140 35, OCT 12036, 0CT24037, OCT 30041, 
0CT24043,0CT16045,0CT16046,0CT14047,0CT30050,0CT14052, 
OCTl 405 3, OCT 12054, OCT 10055, OCT 3 2056, OCT 10060, 0CT06061, 
OCTl 2 0 62, OCT 12063, OCT 12064, OCT 14065, 0CT06066, OCT 12067, 
OCTl 007 0,nc T34 071 ,0CT16 07 3,0C I 3 0 074 , OC T24 076 , OC T 26 1 00, 
0CT2 6 102,0CT041 04,0CT1010 5, Ou T 30 1 06 , OCT 1 4 1 1 0 , OCTOO 1 1 1 , 
0CT04 11 2, OCT 30 11 3, OCT 10 11 5, OCT 141 16, OCT06U7,OCT 12120, 

0 CTl2l21,fJCT12122,QCT20l23,ncri4125,ncT34l?6,nCT22130, 
OCT12132,OCT10133,OCT12134 J 
FIXED <• TRUE! 

XA «- (HGT/7) x CUSCO. 01745330754 x THETA) i 
YA <- CHGf/7) x SINCO, 01745330754 x THETA) i 
IF N20 THEN 

BEGIN 

Xt-XOJ Y <• YO 
ENO ELSE 
B E 0 I in 

IF N < -99 THEN 

BEGIN 

BINX «- -cn + iooj; 


u 

XO - 3XXA + 

3.5XYAI 

Y 

«• YO - 3X x A - 3 . 5x Y A 1 

END 

BEGIN 

ELSE 





XA 

«- 7 xXA 

/ 4; 

YA «- 7 

X 

■< 

> 

/ 4 J BINX «• NJ 

X <- 

XO - 2 x X A + 

2 x Y A f 

Y «- 

YO - 2 x X A - 2x Y A > 

eno; 

eng; 

PLOT 

cxu. 

YO » 3 ) f 

GO 

TO loadb; 

fur 

AC <- 1 

STEP 

1 UNTIL 

N on 



BEGIN 


IF AC MOD 6 =1 THEN W+ BCOC(AC-l) DIV 61.112:36]; 

SINK *• W.C12S6JT W.C12S30J *■ W. [16*301; 

loads: LP «■ true; M7 «• FALSE.; 

USC <- BI8INX3.[33»6]; AIMX <- B t BINX ] . I 39 s 9 ] - U 
F OR I «- 1 STEP 1 UNTIL nsc uo 

BEGIN 

IF I MDO 15 = 1 THtN OSTS «• A C A I N X «• AINX+1T. 

MOVE «- 0STS.13S31; 0STS.t3:A2] «■ 0STS.I6M2]; 

IF NOT 800|»EAN(I) THEN IF M7 THEN GO TU EL ELSE GO TO YU 
M7 <■ MOVE = 7? LP «■ LP OR M7? 

x n 4 . xa x move; ym «• ya x move; go to el: 


Y 1 s 

XN <- XN - YA x MOVE 

+ x; YN *• 

YN + XA x MOVE 


PLOTCXN, YN. 2 + 

REAL (LP)); 

lp <- false; 

EL: 

end i loop; 




IF N < 0 THEN 




BEGIN 




PLOT C X 0 . YO. 3); 

GO TO EXIT 



end; 




x«-x+6xxa; y «• 

Y + 6 x Y A 



END ; 



EXIT : 

END OF SYMBOL; 




procedure 

CONVERT (X# N, 

ALE 1 

value 

X; n; 


ALPHA 

alfw a le 2 ; 

BEGIN 


INTEGER 

AW A 2 * I N W 

of; 

ALPHA STREAM PROCEDURE ALF 

BEGIN 

D I <• LOC alf; 

(p); 


US «• 2 LIT ”00"; 

end; 


ALF2 ) ; 

integer n; 
REAL x; 


si «■ p; 

DS «■ 6 DEC 


X <• X + 0.5 X SIGN(X) / 10 + n; 

A1 <- IF X > 0 THEN " 0” ELSE " -0"; 

IF ( I NT <- ENTILRCABSCXn) > 99999 THEN 

BEGIN 

ALF1 <• "ILLEGA"; ALF2 «■ "L no. " 

END ELSE 

BEGIN 

OF «■ A 2 <- ALF ( INT ) ; 

FOR OF *• DP. L 12:30] WHILE DF>0 00 A 1 . 1 1 2 : 30 ] «■ A 1 . C 1 8 : 30 ] : 
OF «■ ENTIER l(ABS (X) - INT) x 5 3 ; 

AL F2 <• ".00000” + ALE (DF); ALFl <■ A2 + A1. 

END 

END OF CONVERT; 


PROCEDURE NUMBER (X. Y. HGT. FLT. THETA. N ) ; 

VALUE X, Y. HGT. FlT. THE T A . N; INTEGER N; 

REAL X, Y. HGT. FlT. T H L T A ; 

BEGIN 

DEFINE BCD = PLOTTERBCDEE#; 

CONVERT (FLT. N. 8C0I0T. BCOll]); IF N < 1 THEN N «• -U 
IF BCDIO] = "ILLEGA" THEN N «■ 4 ; 

SYMRUL (X. Y. HGT. BCD. THETA. N+7) 

END OF NUMBER; 
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PROCEDURE AXISCX.Y, BCD, NC, SIZE, THETA, YMIN,DY) 1 

VALUE X.Y.MC. SIZE. THETA. YMIN.DY i 

REAL X. Y. S 1 7 E . THETA. YH IN. DY 1 INTEGER NC 1 

ALPHA ARRAY BCOCOJ 1 

BEGIN 

REAL SGN.TH.CTH.STH.XB.YB.XA.YA.XC.YC .CHAR.ABSV.EXPP. ADY.TNC 1 

RtAL XD. YD, DDJ BOOLEAN FINE, FLIP! 

INTEGER N, I, NT, NAC ; ALPHA ARHAY ABCOCOsl] 1 

LABEL L90, L91, L92, L501 

SGN <- IF NC = 0 THEN 1 ELSE SIGNCNC)! 

FINE <- SIZE < C ; SIZE * ABSCSIZE)! NAC «■ ABSCNC)! 

IF FLIP <- BC U [ 0 1 < 0 THEN SGN «- -SGN1 
TH «- THETA x 0.017455 1 N «• SIZE 1 CTH <■ COSCTH) S 

STH «■ SIN(TH) ; XB <• X 5 YB «■ Y 1 

XA ^ X - 0.1 x SGN x STH I YA <■ Y + 0.1 x SGN x CTH 1 

1 * IF ABSCDY) <10 THEN ABSCUY)x£9 ELSE ARSCOY)! 

FOR I «■ 1/10 WHILE I >10 on; 

DD «■ IF 1 = 6 UR 1=4 THEN 4 ELSE 51 
plotcxa, ya, 3) ; 

FUR I «• 1 STEP 1 UNTIL N DO 

BEGIN 

PLOTCXB, YB, 2) 1 X C «■ X B + CTH 1 YC «■ YB + STH 1 

IF FINE THEN FOR NT <• 2 STEP 1 UNTIL 0D DO 

BEGIN 

XB «■ XB + CTH/DDJ YB <- YB + STH/DD5 P L 0 T ( X B , Y B , 2 1 l 

XQ «- XB - SGN x STH / 201 YD «• YB + SGN x CTH / ?01 

plot cxd, yd, ? i ; plot cxb, yb, 21 

end; 

Pl.OTCxC, YC, 2) ; XA <- XA + CTH ; YA «■ YA + STH; 

PLOTCXA, YA, 2) ; XB <- XC 1 YB «■ YC 

END ; 

IF NC = 0 THEN GO TO L50J 

a b s v <• abscdy); expp <- o; 

JF ABSV < 100.1 AND ABSV > 0.00999 
AND ARSCYMIN) < 10000 THFN GO TO L921 
L90 5 IF AbS(YMIN) < 10 * CEXPP+3) AND ABSV < 0,9999 THEN 

BEGIN 

ABSV <- ABSV x io; EXPP <- EXPP - i; GO TO L90 

end; 

L 9 ] ! IF ABSV > 10.0001 THEN 

BEGIN 

ABSV <- ABSV / 10; EXPP <- EXPP + i; GO TO L91 

end; 

L 9 2 5 AOY *■ DY x 10 * C“EXPP)1 

AbSV «- YMIN x 1 0 * C -E X PP ) + N x AOY 1 
XC «• C1F FLIP THEN -SGN/10 ELSE SGN/5) - 0.051 

XA • XB - XC x STH - 0.53 x CTH 1 

YA «- YB + XC x CTH - 0.53 x STH ; N «■ N + 1 1 

FOR I • 1 STEP 1 UNTIL N DO 

BEG I N 

NUMBER C X A, YA, .1, ABSV, THETA, 3) 1 ABSV «■ ARSV - ADY 1 
XA «- XA - CTH J YA «■ YA - STH 

END ; 

TNC *■ NAC + 7 ; 

XC «■ SIZE x 0.5 - 0.06 x TNC 1 
YC ♦ CIF FLIP THEN SGN x 0.3 ELSE -SGN x 0.4) + 0,071 
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XA <- X + XC x CTH + YC x STH ; 

YA «- Y + XC x STH - YC x CTH ) 

SYMBOLCXA* Y A* ,14* BCO* THETA* MAC) ; 

IF EXPP = 0 THEN GO TO L50 ! 

XC • CTNC - 6) x 0,12 i 

XA «- XA + XC x CTH f 

YA «• YA + XC x STH ; 

ABcnroi <- "no )" ; 

SYMBOLCXA* YA, .14* ABCO, THETA* 6) } 

XA <- XA + 0.18 x CTH - 0,07 x STH } 

YA ♦- YA + 0.18 x STH + 0,07 x CTH * 

NUMBER CXA, YA, 0 .07* -EXPP* THETA, 0)J 
XA «• XA - 0.24 x CTH5 

YA «- YA - 0.24 x STH; 

SYMBOL CXA* YA* 0.08* ABCD* THETA+45* -13); 

L50: END OF AXIS; 

PROCEDURE LYNECX* Y* N , K) ; 

VALUE N * K ; 

I N T L G t R N * K i 

ARRAY X * Y I 0 J ; 

9 E C, T N 

INTEGFR I* 13, NF» NL1 

real px* py; 

1 3 «• 3; NF «■ NL «■ C N-1)XK + 1* 

PLOT cpx*py,oi; 

IF CPX-XCin*? + CPY”YC1])*2 < CPX-XTNL])*2 +CPY-YCNL] )*2 
THEN NF «• 1 ELSE 

BEGIN 

NL <■ 1* K «■ -K 

end ; 

FOR I «- nF STEP K UNTIL NL 00 

BEGIN 

PLOT CXCII* Y [ I J , I 3 3 J 13 «• 2 

END 

END OF lyne; 

PROCEDURE SCALFS C X* N * X M T N , DX * K ) f 

VALUE N * X M I N » D X * K * 

RIAL XN IN , UX ; 

INTEGER N * K * 

RIAL. ARRAY X C 0 ] i 
BEGIN 

INTEGER I * NP f 

NP <- NXK ; 

FOR I <- 1 STEP k UNTIL NP DO 

xm <• cxm -xminj/dx ; 

F. NO OF scales; 

procedure oxdyc ymax*ymIn*tdy) ; 

value ymax; real ymax* ymin* toy > 

BEGIN 

REAL AOY*K 1* V ; 

INTEGER K ; 

LABEL FIN, CHUZ; 

OEFINF BCO a PLOTTLRRCDEt # ; 

V IF BCDCO] = TOY AND TOY * 0 THEN TOY ELSE U 
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f 


ADY «• Y M A X - YMIN > 

K 1 <- OJ TDY *■ i; IF AO Y = 0 THEN 

BEGIN 

FILL BCD!*] WITH "DATA E", "KROR» ", "YMIN=Y", "MAX 
SYMBOL Cl, ?, 0.07, BCD, -90. 21)1 60 TO FIN 

FNDJ 

IF YMIN / 0 THiN 

BEGIN 

K <- ENT I E R C2.0001 - LNCADY/V) / LN(10))J 
V <- 1 + SI UN (YMIN) / 9 Hi 

YMIN «- ENT I E K C ' x YmIN x 10 * K) / 10* K1 
ADY «• YMAX - Y 1 1 N 

End; 

WHILE ADY < 10 DO 

BEGIN 

AO Y * 10 x aoy; K1 <• K1 - 1 

end; 

FOR TDY «• 10, IS, 20, ?5, AO, 50, 60 DO 
IF ADY < 1.001 x TDY THEN GO TO FIN! 

ADY <- ADY / 10; K1 * Kt + li GO TO CHUZ1 
I'DY * TDY x 10 * K 1 
END OF 0XDY1 

PROCF DURE SCALF(X,N,S,YMIN,i)Y,K) S 

VALUE S , N , K ) INTEGER N , K s REAL S,YMIN,OY J 
REAL ARRAY XCO] i 
BEGIN 

REAL YMAX ? 

INTEGER I , N P 1 

MB' * N x K > 

YMAX «- XII] i 

YMIN * X I 1 ] > 

FCJR I <- 2 STEP K UNTIL NP DO 

BEGIN 

IF YMAX < XflJ T-EN 
YMAX <• X I ] I , 

IF XII] < YWTN HEN 
YMIN «■ XIII > 

END ; 

IF S = 0 THEN 5 <- 11 

PLUTTERBCOEECO] «■ DY «■ 10 / SI 
OXDY CDY x CYMA> - YMIN) + YmIN, YMIN, 0Y)1 
DY «- DY/10.0 l 
FUR I <- 1 STEP K UNTIL NP DO 
XII] * (XC I ) - Y» IN)/DY 1 
END OF SCALEI 

PROCEDURE OASHUNECX, Y,N1,X ) ; 

VALUE Ml ,K 5 INTEGER N1 ,K 1 
REAL ARRAY X,YCO] 1 
BEGIN 

integer i,np,m,n i 

REAL PEN.XN, YN,ADX, AD Y , DX, DY , DLTX , DLTY f 

LABEL LI 1 

PEN <- 2 } 

m * 20 J 


CHUZS 

FIN: 


1 
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NP «- N 1 * K ’ 

xn <- xm ; yn «■ y c 1 1 ; 

PLOT (XN> YN» 3) J 

FOR I «• 2 STEP K UNTIL NP DCl 

BEGIN 

OX * xm * XN i 
D Y «■ Y C I ] - Y'N > 

ADX <- ABSCDX1 ; ADY <- ABS ( F>Y ) J 
IF ADX > ADY THE* 

BEGIN 

OLTX *■ SIGNCQX) x O.Ol 1 
DLTY «■ 0.01 x DY/ ADX / 

N <• ADX x 100.0 1 

END 

ELSE 

BEGIN 

DLTY <- SIGNCOY) X 0.01 1 

DLTX <- 0.01 x DX/ADY ! 

N <• ADY x 100.0 

END ; 

LIS IF M < N THEN 

BEGIN 

PLOT C XN «- X M + M x D L T X » Y N «- YN + 

N «■ N - M f 
IF PEN = 3 THt N 

BEGIN 

M «■ 20 » 

PEN «■ 2 ) 

END 

ELSE 

BEGIN 

m «■ io ; 

PEN «■ 35 

END ; 

GO TO LI f 

END 

ELSE 

BEGIN 

PLOTCXN «- XN + N x ULTXj.YN «■ YN + I 

m <• m - n ; 

end ; 
end ; 

PLOTCXN > YN>2) ; 

END OF DASHLINES 


PROCEDURE NAMELINE C X, Y, N. K> A. T* DASH) } 

VALUF N,K»T > INTEGER N> K > T S 
RtAL ARRAY X . Y C 0 3 ; 

ALPHA ARRAY A C 0 3 S 
BOOLEAN DASm ) 

BEGIN 

INTEGER T1,N1,I>J,N D S 

REAL TH>XM>YM*MX*DX»DY> S * YL f 

REAL ARRAY Xl^YlIOsN DIV 2 + 2] i 
Nl «■ N DIV 2 ; 

NP *■ N x k I 


x OLTY.PEN) 


x DLTY, PEN) 
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1 «■ CN 1 - 1) x « + 1 J 
IF DASH THEN 
QASHLINE(X»Y,I»K) 

ELSE 

LYNE(X,Y»I,K] J 

DX 4- Xd 4- K] - Xtl - K] ; 

DY <■ YII + K] - Ytl - K1 I 
IF DX s 0 THEN 
TH 4- 1.5707963 
ELSE 

TH «- ARCTANCDY/DX) ? 

IF T > 0 THEN 

BEGIN 

T 1 *■ T D I V 2 J 

S *■ SIGN C1P-6 + (DX X Y [ I J - DY x XII] 

+ XCI-K] x YCI+K] - XCI+K] x YCI-K]))! 
S <- IF S = 0 THEN 0.14 ELSE 0.05 + S x 0.091 
XM 4- S x SINCTH) - 0.0857 x T1 x COS(TH) + Xtl] i 
YM ♦ -S x CDS(TH)-0. 0657 x T1 x SIN(TH) + Ytl] i 
TH 4- 57.29591 25 x TH 5 
SYMBOLC XM, Y«,o. 10, A,TH»T ) f 

END 

ELSE 

SYMBOLCX t I ] , Y 1 1 ] ,0 . 10, A. TH,T ) J 
J 4- 0 ; 

FDR 1 4- I STEP K UNTIL NP 00 

BEGIN 

J 4- J + 1 i 

xicj] 4 - xm ; yicj] 4 - Ytii ; 

END ; 

IF DASH THEN 
0ASHL1NECX1»Y1, J.K) 

ELSE 

LYNECX1, Yl» J.K) ; 

END OF NAMELINE; 


THERE ARE 595 CARDS IN THE DECK 


E 10, 1968. TOTAL ELAPSED TIME IS 63 SECONDS. 


PROCESSOR TIME IS 


10 SECONDS 


I/O 



KtAL ww ,W0 , OW , WM , L. , L 1 , L.2 .• W » IP * II < WM1 , WM2 . HI » 

H2 , FH , HI , R2 , K 1 X , K2X » K 1 Y , K2 Y , C1X * C2X , C1Y , C2Y » 

UlX , U2 * , I.) 1. Y , D?Y , R1X , ‘ H 2 X , R1Y , R2Y > G ; PI > M, DM1 , DM2 , 

H PH , «TT , RP , RT , in , L22 , HOI , K02 , PHI , EPS , RAD , 

K 1 x X , K 2 X X , K 1 YY , K2YY , C1XX , P2XX , ClYY , C2YY , R1XX » R2XX , 

R1YY , R 2 v Y , IJ 1 X X . 02XX , D1YY , D2YY , PM 1 , P01 • SI » Pm2 » P D2 » 

SIT • HR . CC , Di) , Lt , PXl , PX2 , PYi , PY2 , PA1 , PA2 , 

PFX . PFY , f ; 

I R r t G C R P , N , I , r< l . J , K S 

REAL ARRAY OMEGA > y, , SS , XXI > X X 2 , Y Y 1 , Y Y 2 , SIX1 , SIX2 »RPM, 

SlYl , SIY2 , S I A 1 , S I A? X A L F A 1 , ALFA2 .. FXl , P X 2 , PFx2 » F Y 1 , 

FY2 , P F Y 2 , PUHFXi , POHFX2 , P!li 3 FVi , P IJBF Y 2 [ 0 s 200 ] .LZC0P41 , 

XL , YL . PXL » HYI. 105200.0: 4] , A (. 0 : 0 , 0 : 8 ] , c . XCOSft] , 

P F X 1 . v F Y 1 l 0 : 2 0 0 1 P 

LAdtL LOU . FIMS . El , F2 , t.Dul 1 
d (J 0 L E A N R S w P 

ke Al xmim.mx.ymim.dy p integer w p . r . b , u . f.oo .rm.gk p 

alpha ARRAV ALPHA2.AI.PHA4, alphas, aLPHA6,AlPHA7.AL«U.ALH13.ALB21.ALH23. 
aLH 31 , ALH3 3, al. 84 1 , /U.H4 3, ALPS 1 , ALRS3, Al 06 1 , AI.B6 3, AI.B71, ALR7 3, ALRM, AI.B8 3 
t 0 : a ] p 


PRUCEDURF IN TF RPC XU.XF , H , Y , X , 0 F T A , E P R T LO N, M , I MW, LL. A HE L ) P V A L UE XO, XF.H, X, 
dtTA.LPSlLUN.MP INTEGER M : R E 4 L X 0 , X F , H , X , EP S I LO N . I N WP 800 L E AN BETAPARRAY Y 
tOJPLAHtl. I L A B E l_ P 0 1 G T M INTEGER n.I.J.kPREal U 1 , U , TEmP P L ABE L NFOR, L 1 , NB A K 
, L 2, EDPP IF C X< C XU-?xH1 )MR CX>C XF +2XH) )THEM GO TO I. L A R t LP N <- A8 S C C XF-XC ) /H ) J I 
F m> n then r-i<-NPUl«-(XF + Xu)/?.OPK«-l 5 IF X <• C 1 1 1 -3 x H ) TH f M GO TO NFOR ELSE I F C X 
>U l + SxH )<1R BETA THEN GO TO N R a K P N F OR : J «-M - 1 P U «- ( X - X m / H P I N W <- Y [ 0 3 * U 1 * 1 . 0 P L 1 
p YLo ]«-YC n -YIO JP IF AHSC HOI )<EPSILON T H t N GU TO E OP P U 1 «-U 1 x C U -K + 1 . 0 ) /K P I N 
,v<-lMW + UlxYro] ; IF K = M THEM GO T'j EOPPFDR I+lSTEP 1 UN TIL J DO Y I I 1 <■ Y C I + 1 3 - 
Y C 1 J • J<- J" 1 P r<-K + 1 5 GO TO Li pNHAK 5 U<-C X-XF )/HP J«-N-M + l ; IiMW«-YCN ] PU1«-1 .0PL2: YIN 
]<-Y [Mj-YCN-n; IF ABS( Y I. !M 1 1 <k P S J. LOM THEM GO TO FOP P U 1 «-U 1 x ( U + K- 1 . 0 ) /K P I N W + 
INW + Yr M jxut P TF K = H T H t M GO TO E0P5F0R I «■ M - 1 ST F P - 1 U M T I L J DO Ytn«-Yrn-Y[ 
I“1 i»J«-J + l SR<-K + 1PG0 TO LRPE'JPs enop 

PROCEDURE GETTiPmCRY.F’x.RM.X. Y.M.GKIPREAL ARRAY X , Y , R X , R Y I 0 ] P I N T E GE R M, 
RN.GKP REGIN REAL. ING.Xl.w? INTFGLR I.J.R P REAL ARRAY 0 Y C 0 * 10 3 * 

LAdtL LlADEL. t'XlJ P 

K <• 2i FOR J <- 1 STEP 3 UNTIL N-S on BEGIN K «- K-l P 
Fijt< i <- o s i f p i until s do o y c i : «■ yu+ip: 
w <• cxtj + S3"xrj])/s; 

FDR Xt <• X r J 1 + W/CK STEP W/GK UNTIL XIJ + 5] on RFGIN 
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iNTtRPCXCJl.XC J+5), W -UY, XI, FALSE . i? -S , 5 » I N W , l.L ARE l ) / 

ryckt <- imw ; r x r k 3 «- xi; k «• x+i; tMO; End; rn <- k- 1 : go to exoj 

llabel « •nuTECLP»< , 'uu7sjr>t kangk">); exo; e no nr gettum ; 

PRiJCEOlIHE ALINE (X»Y,N,YMtN.»DY»K»Q»UQ); VALUE n; INTEGER H.K.Q.QO; 

ReAL YMTM,OY« real array x.rioj; 

BEGIN INTEGER I,J,RN f REAL ARrtAY R , H X , R Y C 0 S 40b 3 ; 

ALRriA ARRAY '»CD[0:R]J 

IF uQ = 1 THEM SCALED f , N, YM I N » D Y, K ) ELSE SC ALE C Y , N » 6 , Y M I N , 0 Y , K ) i 
IF AX X 1 THEN hEGIM 

FOR I * 1 STEP 1 UNTIL N 00 RE 1 ] <• X C I 3 > GETTU M ( R Y , RX .RN.P.Y.N.GK); 

IF oG = 1 THEN FOR I <• 1 STEP 1 UNTIL RN DO BEGIN IF R Y 1 1 3 > 6 THEN RYCI 

J * 6 ELSE IF RYIIJ < 0 THEM RYCIT *■ 0 J END! L YNE ( RX * RY, RN , K ) ; 

FOR I «■ 1 STEP 1 UNTIL 5 00 BEGIN J «• ENT I F.R C I x ( PN XS ) ) > IF RYCJI < 5.8 
ANU RYI.J] > .? THEN SYMBriLCRXl' J],RYlJ]».12.riCD»0,Q); E N D J E N [) ELSE BEGIN 
IF GO = 1 THEN FOR I <- 1 STEP t UNTIt. N 00 BEGIN IF Y C I 3 > 6 THEM YCI 

] *■ 6 ELSE IF Y C I 3 < 0 THEN Y L i 3 «- 0 J EN 0 ? L YNE ( X. Y, N,K); 

•'UR I «■' 1 STEB 1 UNTTL 5 00 BEGIN J <■ ENTIF.RCJxC n/S))! IF Y C J 3 < 5.8 
ANU Y [ .) J > .? THEN SYMBOL (X[J.J,Y[J],,12,HC0,0,Q); END; 

LHU> 

E N 0 OF AI.1NE ; 

PROCEDURE AGR 1 1) C NY . NT , F 1 , F?, F i , F A t AlRM . AI.HN3) J 
i N T t G E R N y , .1 T ; 

RcAL l* t .F2.l3.FA ; 

ALPHA 4 UP AY 4 1 . R N 1 * A 1. R N 3 l 0 3 I 
ItolM REAL XOT! 

AX I SC 0 . 0 . AI.BN t , NY, - a . 90. yh I H. I)Y) ; AxTSC O.U. ALPHA?, - 1 5. “8. O.XMIM, DX3I 
AXlGC8.0,A|.RHA2,0,-6,90,YMTN,t)Y); A A I S C 8 » 6 , AL P H A ? . 0 - 8 , 1 8 0 , XM I N , D X ) t 
Plu I (0 , e> . 2 ) ; PLOT C 0 . 6 . 5 , 1 ) ? PlOTC 8 , o ,S . 1 ) ; PlJlTcfl. 6,1)1 PL 0TC8, 6,25.3)' 
PLOT CO .6 .25,2 j;PLOT ( .5.0. OS, 3 ) J 

SYMBOL C .5, A .OS, . 1 A, ALPHA 4 .0, 10 ) ) NUMBER! 1 .46,6.05. . 14, F 1,0,0) » 

X U T <■ 4 -( NTx . 1 ? )/? ! S Y MB UL C X f)T , 6 . 30 > . 1 4 , AL P M 3 , 0 , NT ) J 

If H r. / THEM BEGIN 

SYHbOLC 4 . n .05 , . 1 4 , Al Pus 7 . 0 . 25 ) } Nil MbE R C 6 . ft 4 , 6 . 05 , . 1 4 , F 4 , 0 , 2 )) END) 

EN J 1 . 1 E A G R T U * 

PROCEDURE G OP LOTTE R CH.-J)J REAL ARRAY R R [0]! 

8 ejI.iI L a '1 f L GETUOT. GO AG I i„ , OR Art 1 » UR A R?, UR AW 3 » OR A W4, OR AW5. OR AW 6 , 
l)HA«7 i IlTEC.FR A . L , C ; 

R E A 0 ( C B « / , W P ) > IF WP = 0 THEN GO TO GFTuUi; PL0TC?.0,-4);PL0TC2, I.5.-5) 

; KILL ALPHA?!*] with "FREUUE",”MCY i;r”,"PM] »; FILL ALPHA4C + ] WITH 

"CASE N " , " i ) . = " J 

RtAU (CR» / . A, GK ) ; 

SCALE CrW,I,8»Xm[N, 0X,1 )8 FOR T <- 1 STEP 1 UNTIL WP 00 BEGIN 
RE Au ( CR, / , B, C , D, F , F, YMiN.n Y, QO ) I 

if o = i then go to okari else ie b = 2 them go to draw 2 else 

IF B = 3 THE>i GO TIJ D R A w 3 ELSE IF H s 4 THEN GO TO 0RAW4 ELSE 

IF b = 5 THEN GO ru DRAWS ELSE IF M 6 Then GO TO URAW 6 ELSE 

IF B = 7 THEN G(J TO 0R4W7 S 

1 i R A R 1 s BEGIN 



fill 

ALRlir*] 

WITH 

ff B E A R I N " * G 

AMPL’S^ITUOE 


FILL 

AL B 1 3 r * ] 

WITH 

♦*SEAR1N«.«G 

AMPL"."ITIJDE 

" VS. ”, 

"FKf. gOE ,r * ,f MC r " ? 





IF C = i 

THLN HE GIN 





ALINEC WW 

9 X X 1 9 Ip Y^TN»DY*1* 

-9 ,00)1 

QQ + 

1 s end; 
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IF (j = 1 THEN BEGIN 

AL INE ( wW, Y Y i , I* Ymjn,DY, 1,-11, 00)1 qo <- i ; END! 

IF E = 1 THEN BEGIN 

AL 1NE ( WW» XX2, It YMJN.UY, 1,-13,00)1 00 <- 1 ; END? 

IF F = 1 Then AL1NECWK, YY2, It YMlN,UY,l,-lS,QG); 

4<iRlLT(17,3'3,A,0,0,0,ALrill,ALH13),' PLOT ( 1 0, 0, -4 ) > F’LUT (2,0, ”5)1 END! 

3 LI ro GOAF, In J 
OR A a 2 : BEGIN 

FILL ALB21 T *1 WITH "BE Ah IN", "G PHAS","F ANGL",”E "J 

FILL A L Fi'S> 3~t * I wIT'H "PEART N", "G PHaS","E AnGL"»”E VS E " , " R E 0 U E N " . " C Y " 

/ 

IF c = i them begin 

alInE(ww.siai,i,ymin»dym»-9 ,qq);og <- \; end; 

IF 0 = 1 THEN BEGIN 

ALiNECWw.SIYl, l»YMIN,l)Y, 1,-11, 00); 00 «• 1 i END ; 

IF E = 1. THEN BEGIN 

A L I N E ( W rt . S I X 2 t I • Y M I N • 0 Y , 1 t - 1 3 , 0 0 ) J 0 0 <- 1 ! F NO f 

IF F s 1 1HF.N AL I Nl C NW * S I Y?, 1 t YM I N, l)Y t 1 t - 1 5 t QQ ) J 

AGRIDC 19,32, A, 0,0,0, AlB21 ,Al«23 ) S Pl.O T C 1 0 , 0 , -4 ) i PLOT ( 2 , 0 , -5 ) J END! 

GO TO GOAGIn ; 
l)KAW3 ! BEGIN 

FILL A L B 3 1 C * I WITH "ANGOLA", "R AMPL", " I TUBE "5 

FILL ALw33 C * I WITH "ANGOLA", "K AMP|_", " I T l J U E ","VS. F R" , " EQUENC " » " Y ” 


IF C = 1 THEM REGIN 

ALINE(WW,ALEA1 , I, YMlN.[)Y,l,-9 ,0011 00 <■ 1 i ENU.S 

IE U = 1 THEN ALINECNh. ALFA2, I , YM I N , I.) Y • 1 , - 1 1 , OCn J 

AGKIOC 1 7 , 31 , A ,0,0 ,U , ALB3 1 , ALB33 ) i PLOT CIO, 0,-4 II Pl.uT C 2 , 0 , -5 ) J ENOS 

GO TO G u 4 G I iii t U R A w 4 • BEGIN 

FILL ALBA 1 T * I WITH "ANG. P","H4SE A " , " N G L t " J 

FILL ALb43F*I WITH "ANG. P","HASE A " , " N G L L V"," S. FkE" , "OUENC Y " J 
IF 0 = 1 THEN BEGIN 

ALINE(wW,SIAl , I, YMlN,DY,l,-9 ,0G); QQ «- 1 I ENUI 

IF 0 = 1 THEN ALINECWW,SIA2, I . YM I N, nY , 1 , - 1 1 , 00 ) J 

AGR10Cle>.30,A,0,0,O.ALB4i,ALBA3}I PLOTC 1 0, 0, -4 ) i PLU T( 2 , 0 , -5 ) i F M L> > 
GO TO GOAGIN ! 

DRAWS : REGIN 

FILL Ai_BS1I*] W j T H "FORCE "."TRANS."! 

FILL ALBS3C * I WITH "FORCE ", "TRANS " VS. F " , "RE Q IJt N" . "C Y "i 

IF C = 1 THEN BEGIN 


AL1 Nt C WW, EX 1 , I , YM I N • DY » 1 , -9 , 00) 5 UQ <■ 1 ! END.! 

IF 0= 1 THEN BEGIN 

AL1NECwW,FY1 . I, YMIN,QY, 1,~11,00)J 00 <■ 1 ; END J 

IF E = 1 THEM BEGIN 


ALINECWW..FX2, I, YMIN.OY. 1,-13,00) ! 00 <- 1 i end; 

'IE F =' 1 THEN A L I N E ( W W , F Y 2 , I , YM I N , 0 Y , 1 . - 1 5 , 00 ) ,* 

AGR IOC 12 , 20, A,0 ,0,0, ALBS 1 . ALB53 )I PLOT ( 1 0 , 0 , -4 1 1 PLUT ( 2 , 0 , -B ) ! END! 
GO TO GOAGIn > 

0 R A w 6 ! BEGIN 

FILL ALB6 1 1 * ] WITH '"FORCE " , "T R AN S . " , " PHASE”, ” ANGLE"! 

FILL ALB63C*] WITH "FORCE "."TRANS."," PHASE"," ANGLE"," VS. F", 
”REoUEN", "C i " ! 


IF C = 1 THlN BF.GIn 

ALINEC WW,PUBF<1. I, YMIN.OY, 1,-9 .00)! 00 <- 1 } E N D t 

IF U = 1 THEN BEGIN 

ALINEC WW,PUBE Y 1 , I , YMIN, DY, 1, -1 1 . 00); 00 *■ 1 I END! 
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IF t = 1 THEM E 6 1 N 

ALIMEC WW.P'JBFX?. I . YMI N . DY - l . -1 3.0Q) ! qQ «- 1 J EnDT 
If F = 1 THEM A L I N E ( WW » PU 8F Y 2 » I . YMIN. DY. 1 . M5. QO ) ; 

4GRlO(?.4>3S> A.0,0.0. AlHM .AlB 63); PLOT ( 1 0 . 0 . - 4 3 * PLOT ( 2 . 0 . -5 ) ? EMDJ 
GO I a GOAGI.M : 0RAW7 : BEGIN WEAL DYRE ! 0 Y RE «• OY 
FILL 4LPH A 7 C + ] wITH ’’LENGTH'*,'' FROM "."1ST BE" , ” AR I |\jG = ”i 

IF 0 = 1 THEM HF-'jIN real ARRAY NX.NYCO! 1001 ; 

FILL ALtiTlC + l with "AmPLIT"."UDE ”J 

fill ALd73C*3 WITH " 4.MPL l T". "iJDE VS".". FkE «" . "UENC Y "I 
FOR E «■ 1 STEP 1 tJ MTU. P DO REGIN 

FOR F «■ 1 STEP 1 UNTIL 1 00 REGIN NXEF] <- XLCF.EIJ N Y I F 3 YL C F , E ] J E ND I 

ALlNECWw.NX. I . YM IN . OY. 1 . -9 .00 ) } 

QQ *■ 1 » 

ALI'mECWW.MY. I. YMIN, OY. I .-1 1 .. QQ) i 

AGK1D(9,23.A.0.0»IZ[E].ALR71,ALR73)) IF OYRE * OY THEN QQ <■ 0 i 

plOT(i?.o»-s); ends plUTo. 0 .- 4 '): go to go agin ; end! 

IF u = 1 THEN BEGIN real ARRAY NP X » NP Y [ 0 s 1 00 ] i RE AL OYRE DYKE <■ OY i 
FILL 4L08U*] WITH "PHASE " . " A N G L F " ‘ 

fill a l r s 3 r * i with "phase "."angle "»"vs. fr"."EqijenC"."y 
FlJR E *■ 1 STEP 1 UNTIL P 00 HEGIN 

FOR F «• 1 STEP 1 U J T T L I 00 HEGIN HPXCF1 «■ PXI.CF.F.I * RAO. 

NPYLF] <- PYLCF.E] < RAO ; E N 0 r 
A L I N E l W W . M P X . I » Y V I N » I'J Y » l » - V . Q Q ) J 
Q 9 <■ 1 5 

A l l N E C W W . N ° Y » I . Y M I -i . 0 < . I . - 1 1 . Q Q ) I 

AGrdOf 1 1 . 25. A. 0 . 0 ,L7f E 1 . AI..HH l . ALRA 3 3 ; I F OYRE * OY THEN QQ «- 0 > 

P L J r C 1 2 . 0 . - 3 ) ! END! P L 0 T ( 1 . 0 . - A ) J E N 0 f END! 

(j 0 A b 1 N ! 
tNLii 

GtTuiJTS Elvf) OF GOPLOrreR! 

COMMENT THIS PROGRAM EVALUATES DESIGN DATA FOR A FOUR DEGREE 
E RlECiOm SYSTEM That SIMULATES A ROTOR ON GENERAL ANISOTROPIC RRGS. 

THt EQUATIONS SOLVED HAO SEEN LINEARIZED . MO ASSUMPTIONS WERE 
MADE ON THE BEARING CHARACTERISTICS . THE CROSS COUPLING TERMS ARE' 

KtPT WITH PROPER SUBSCRIPTS AS USEO IN THE DERIVATION OF THE t Q N S < 

THt program REQUIRES the following to he read as input data: 

CARO 1 

i. wn- initial speed (bps) 

?. UN- INCREMENT IN SPtEO CRPS) 

3.WM- FINAL SPFED ( R P S ) 

CARL) ? 

1. L- LENGTH HE TM BRGS (INCH) 

2. LI- GIST FROM 1ST 8RG TO MASS CENTER (INCH) 

3. L2- OISI FROM 2ND BRG TO MASS CENTER (INCH) 

4. w- RUT0R WEIGHT (LHS) 

5. IP- POLAR M.I. (LB-IN -SFC2) 

6. IT-TRANSVERSE m.T. OF ROTOR ABOUT MASS CENTER (LB- IN-SEC 2) 

CARO 3 

1 . W M 1 - F I R S T UNBALANCE WEIGHT (LBS) 

?. WM?- SECOND UNBALANCE WEIGHT (LBS) 

3. HI- DIST FROM 1ST BKG Tu 1ST UNBALANCE (INCH) 

4. H 2 — DIST FROM 1ST BRG TO ?N0 UNBALANCE ( TNCH ) 

5. PHI- PHASE angles RETN unbalance planes 

6. Rl- R A 0 1 U S OF 1ST UNBALANCE LOCATION 

7. R2- RADIUS OF 2 NO UNBALANCE LOCATION 

CARO 4 
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1. N- NO , OF H’LACEc OTHER THAN THE l?RG LOCATIONS WHERE 

displacements are to be measured 

2. LZ1- OIST FROM 1ST HR G TO 1ST PRO HE CINCH) 

3. LZ2- DIST FROM 1ST 3RG TO 2ND PROBE (INCH) 

CARD 5 

1. K1X- 1ST BRG STIFFNESS IN X OlRtCTION (LB/In) 

?. K2X- PNC BRG STIFFNESS IN X DIRECTION (LR/T.N) 

3. K1Y- 1ST BRG STIFFNESS IN Y DIRECTION (LB/lNl 

A. K2Y- 2ND RRG STIFFNESS IN Y 0 I RE C T I UN C I B / I N ) 

CARD 6 

1. C1X-1ST BRG DAMPING COEFF In X OIRECTIONCLB. SEC/IN) 

2. C2X- 2ND BRG DAMPING COEFF IN X DIRECTION ClB.SEC/IN) 

3. C1Y-1ST BRG DAMPING COEFF IN Y DIRECTION Q.8. SEC/IN) 

«. C2Y- 2ND BRG DAMPING COEFF IN Y DIRECTION Ci_d.SEC/lN) 

CARu 7 

1. D 1 x - CROSS COUPLING DAMPING COEFF (L B .SEC/1N) 

2. f)?X - CROSS COU“lInG DAMPING CDEFF CLB.SEC/1N) 

3. D 1 Y * CROSS COUPLING DAMPING CDEFF CLP. SEC/IN) 

A. DPY- CROSS • COUPLING DAMPING COEFF (LB.SEC/iN) 

CARO 8 

1. R 1 X - CROSS COUPLING STIFFNESS CLB/IN) 

2. R2X- CROSS COUPLING STIFFNESS CLB/IN) 

3. R1Y- CROSS COUPLING STIFFNESS ( L 6 / I N ) 

A. R2Y- CROSS COUPLING STIFFNESS CLB/lN) 

THE OUTPUT DATA ARE AS FOLLOWS 8 
CUL 1 WW-SPEED CPPS) 

C0L2 XI OR Y 1 - OISP AT BR G 1 TM X OR Y DIRECTION 

CL'Ld X? DR Y2- DISP AT BRG? IN X OR Y DIRECTION 

CDLa slxl OR SIY1-PHASE ANGLE OF xl OR Y1 WR T UNBALANCE 

CULb SIX? OR SIY?“PnASE AnGLE OF X2 OR Y2 WRT UNBALANCE 

CULo AI.FA1 OR ALFA2-ANGULAR DISPLACEMENTS 

COL 7 S I A 1 OR RlA?- PHASE ANGLE OF ALTAI OR ALFA2 

COL 8 F x 1 OR FYl-FoRCE TrtANSPlTTtO TO BRG 1 IN X OR Y DIRECTION 

CUL 9 FX2 OR FY2- FORCE TRANSMITTED TO BRG2 IN X OR Y DIRECTION 

CUL 10 PUfciFXl OR PUfiFYl- PHASE ANGLE OF Fxl OR FY1 

CUL 11 P U R F X 2 OR PUBFY?- PHASE ANGLE OF Fx2 OR F Y 2 

THt HExDlNC PRINT OUT UF THE InPUT DATA ARE AS FOLLOWS : 

LINtl L.L1.L2.H1 

L I N L 2 H ? > E > w m 1 , w N. ? 

L 1 n E 3 K 1X.K2X.K1Y.K2Y 

L I N l 4 C1X'C?X>C1Y.»C2Y 

L1nl5 R1X.K2X.P! Y » R 2 Y 

L I N 1 6 D 1 X . D 2 X . D 1 Y » D 2 Y 

line/ JP.IT.K1.R2 

L 1 N E 8 PHI > 

FUKhAT HFADl (D(2(B9( "*"))./)> 

? 4 (***") . X 4 0 . X 3 1 .23C"*" )./> 

24("*"). XI. * "DESIGN DATA K OR A SINGLE MASS ROTOR kITH FLEXIBLE SUPPORT 
ANu DAMPING" .xl , 23 ("*")»/» M2C59C"*")). /)) } 

FORMAT HF. 4 D?(2(?(bR( "*"))./). 

Xb , "L=",E11.4 , "INCH" , X 1 2 . "1.1 = " . Ell. 4 ."INCH" , Xl? . "L? = " . 

Ell. 4 , "INCH" . Xl? • " H 1 = " . FI 1.4 • "INCH" . / » 

X4 , " H 2 = " . Ell. 4 , "INCH" , XI 3 . "W = " . El).“ . "LB" . X 1 3 , "WM1=" . 
til. 4 . "LB" . X 1 3 . "><M2 = " . F.11.4 » " L H " . / . 

Xi . "mx = " . Ell. 4 » "LP/1N" » X 1 0 . " K 2 X = " . F.11.4 ."LB/IN" > X10 . 

” K 1 Y = " . F11.4 . "LB/IN" , X10 . " K 2 Y = " . Ell. 4 . "LB/IN" . / . 
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X 3 , " C 1 x = " , Ell. 4 , "LB. SEC/IN" , X 6 , "C2X=" , Ell. 4 , "LB. SEC/IN" , 

X6 , " C l Y = ” , Ell. a , "LH.SEC/IIN" ,X6 , "C2Y=" . E1M ,"L6. SEC/IN" ,/, 

X 3 ,"Rl*=" , Ell. 4 .. "LR/IN" , Xn , "R2X=" , E 1 1 . *» , "LB/IN" , X 1 0 , 

"iUYs" , ELI. 4 , "LO/IN" , X10 ,"R2Y=" , Ell. 4 , "LB/IN" , / . 

xi , "UIX=" » F 1 1 .XI , "Lb. SEC/IN” , Xb . "n2Y=" > Ell. 4 , "LB. SEC/IN" , 

Xb , " 0 1 Y = " * E 1 1 . 4 , "LB.SEC/IN" , X 6 > "L-?Y = " , Ell. 4 , "LB • SEC / I N" . / 

,X4,"IP=" . F.ll.4 , "LB-[N-bEl2" , X6 . "IT = " , E 1 1 . 4 » "LB-IN-SEC?" , 

X 6 , "Kl = ” • Ell. 4 , "INCH" . XI? , "R2 = " , F 1 1 . 4 » "INCH" ,/ p 

X -JO , "PH1=" . El 1.4 , "DEGREES" • / r 


2C21S9C"*") ),/) ) ; 


FORMAT 

rjiJTl ( X 6 

f 

"SKtEJ 

n 

p 

X6 

9 ,f xi 

tt 

P 

X 9 

, " X 2 " 

9 

X 9 ^ 

" S IX 1 " , V 3 

P 

" S i X 2 " 

f Xi , 















"ALEA1 

" > X 7 ^ 


SI At” ^ 


X4 

^ tf 

F X 1 M 

9 

XV 

p 

" E X 2 " 

P 

X6 

PU8FX1" . X2 

P 

"PUBFX2" . // 















Kllrt .v| A T 

QU T ? C X 6 

f 

I * X 

l 

p 

Ell 

. 4 • 

Xl 

p 

111.4 , 

XI 

^ F 6 

■ 1 p 


X 1 » E6 , 1 . X 1 

f 

E J 1 .4 

* 

Xl 

p 

F6-. 1 

p 

Xl 

9 

E 1 1 . 4 


Xl , 

El 1.4 , Xl , 


F o . 1 , 

Xl ^ F^S 

. 1 

) ; 













*' U rt ■-'! A T 

UUT3 C X 6 

9 

”SPKr L ) 

tt 

p 

<6 

. ”Y L 

ft 

p 

X9 

, " Y 2 " 

p 

X9 p 

" S I Y 1 " , X 3 , 


M blY5> w 

t X i p 

It 

ALFA?" 

♦ 

XI 

9 

” S I A 2 

T* 

p 

X 4 

. "EY 1 

tf 

> X9 

, " E Y 2 ” . Xb 

P 

" P 0 B F Y 1 " , X 2 , 

"PWn?*, 

// ) 

f 










V U K A T 

00 T a ( X>3 

9 

"L7" , 


x?o 

P 

" X L ,f 

P 

X1B , 

"YL" 

p 

X 1 6 > 

" p x l " . xie 

9 


"PEL" , X 9 , " S P F E 0 " ,// ) ; 

K 0 rt ^ A T TUTS C XS . F6.1 . X13 , F11.4 , XR . Ell. 4 , X10 , F/.2 p Xl4 p 

r r .? , x 6 , r 7,? •> f 

H E A j_ PROCEDURE ANCLE CPN.POl f 
VALUE PN p PO ! HEAL P N » PD i 

BEp I N 

HEAL A » °I » 

LABlL LI . L 2 . 1.3 . L4 » 

PI <• 3. 141SV ; 

IE PN> 0 AND P0 = 0 THt'l tin T ■) LI 1 

ie p n < o and po = d then go to l? ; 

IE P N = 0 AND P0 = 0 T H c. N GO TO L 3 . f 

H «■ ABC f AN( ABSCPN/PO)) 1 

IE P N < U A ,\| D P 0 > 0 THEN H «■ 2 x 3 1 - 3 \ 

IE P N >0 AND PD<0 THEN B «■ PI - B i 

IE 9 N < 0 AND PD<0 THEN P«- Pl + B S 

GO ro LA J 

L 1 : B *■ P I / ? 

GO TU L 4 I 
L?s P<- (3xPl) / 2 f 
Gu TO L4 ; 

L 3 • ?<-<) ; 

L 4 • A i\ G L E <• B 1 

END OE PROCEDURE '• 

PROCEDURE EORCECC . K , 0 , R , C 1 . S 1 ,C2 , S? . W W , F , PF X , PF Y ) f 
VALUE C p K , D p R p Cl, Si . C? , S2 « WW ! 

HEAL C»K>D»R, Cl , SI , C? . S2 , WW , F , PEX , PEY . 

COMMENT THIS PROCEDURE CALCULATES THE FORCE OR MOMENT 
PRODUCED BY THE REACTIONS WHFRE 
C= DAMPING COEFF 0 = CROSS COUPLING DAMPING 
K* STIFFNESS COEFF R = CROSS COUPLING STIFFNESS 
THt FORCE CALCULATED IS IN THE DIRECTION OF Xl WHERE 
Xl= Cl COSCwWT) + SI S1NCWWT) .WHERE WW=ROTOR SPEED IN RAO/SEC 
DIRECTION NORMAL TO Xl IS X 2 WHERE 
X2= C2 COS (WWTl + S? SINC'WWTD 
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F = F COS(WWT-PH)sA COSCWkT) + B SINCRWT) ; 

BEGIN 

Fit AL A, 8 > 

A «■ C x W W * SI + k ' x Cl + D x w W x S 2 + Rx C 2 J 

B «■ - W W x C * Cl + K x SI “ w W x o x C? + R x S 2 ; 

F «■ SQR1 C ax A + 8x b ) 5 

ppx «■ angle c b > A) ; pfy <- angle c-a . r ) ; 

tNU OF PROCEDURE FORCE f 

PRutEDUtE, ARBITRARYOISPLACtMENT CLZ * L r X > X l_ » YL » P Xl_ .» P YL ) ! 

VALUE L Z * L i 

REAL L? » L > XL * YL > PXL » PYI. i 
REAL ARRAY X f 0 I \ 

B t G I N 

COMMENT THIS PROCEDURE CALCULATES THE X AND Y DISPLACEMENTS AT 
ANY POINT MEASURED FROM THE FIRST BUG . XL IS SHAFT ABSOLUTE 
X DISPLACEMENT AND PXL IS THE F H A S t AnGlE ’< 

R L A L Ax • B X > AY > BY , Z ’> 

L * LZ/L I 

ax «• zx xr 3 i + n - z ) x xn i ; 

BX *■ 7.x X [ A J + Cl - Z ) X X 1 2 1 i 

AY <• 7 x X[73 + C 1 - L ) x XC5I f 

BY *■ 7 x x l fi I + ( 1 - Z ) x XC6] > 

XL <• SURT C A X x AX + HXx RX ) ; 

YL *■ SORT C AY x AY + BY x BY ) f 

pxl <■ angle cbx » ax ) > 

PYL «■ ANGLE ( - AY . BY ) 5 

End of PRUCEDuRE ARBItRAkYDISPLACFmlnt ? 

PROCEDURE SULVECN/ A,C»RSW,£.K1 >F.PS»X,E1 .E21FVAI.UE N»RS'X»E^K1 * E p S * INTEGER 
N»Kli REAL E. EPS* BOOLEAN RSRFREAL ARRAY A 1 0» 0 1 » C> X C 0 ] i L AH EL El»F. 2>BEGIM 
iNTtGER Jr JfKrJl »K2>|.;RtAL B I G .. T E MP , D I A G ,NUWM . 0/ OWN iNTtGER ARRAY F l 0 : N 1 
/REAL ARRAY D[0:M];nWN REAL. ARRAY 8[0SN»0»N] JLABEL Sl.S2.*S3,S/+»S5>Sb,REP 
/SZ.SB.SR# lTl>SlO»Sll»Sl2.Sl3/SlA/SlS/EXIT;Si: IF RSW THEN GO TO REP; FOR 
I «■ 1 S TE P 1UMTIL N DO FOR J«-1STEP IUNTIL N DO B C I , J 1 «■« t 1 , J 1 J S? s FOR 1MSTEP 
IUhTIL N 00 BEGIN L«I-1*'F0R J*I STEP lUNTlL N DO BEGIN G<-0>TUR K«-1 STEP 
1 UN 1 I L L DO Q«-B[ J, K ]x0[ K , I ] + Q5 B[ J , I 1<-BC J , I ]-« E NO 5 B I G<- 0 * K2* 1 J 5 3 : FOR K*I 
STEM lUNTlL N DU BEGIN IF ABS C B C K . T Jl > H I G THEM BEG In B I G<- A 3S ( B t k , I I ) 1 K?* 
K EnD EnD 1S4:IF BIGSEPS THEN GO TO ttJFC I ]<-K2! IF K 2 A I THEN SBsFfiR k«- 1STE 
P lUNTlL N Lin BEGIN T t MP «. a [ K 2 > K ] i A [ K 2 , K ] *■ A \ I . K I > A II , K ] «-T EM P J T E^P <- B C K 2 , K ] 
; tit K2*K 1«-P[ I ,K] ! HI I »K ]«-TEMPI End; DI Aij<-B[ l . I ] ; SB S FOR JM + 1STEP 1 II NT 1 L N DO 
BEGIN G«-OJFOR kUSTEP IUnTIl L DO n<-BC I .K]X8[K» J1+U1BCI . J 3 «- C B r I , Jl-CJJ/D 
1 A G END ENDJREPsFDR HlSTEP 3tiNT.II. N DU BtGIN TEMP* C I F C I ) ] ; C [ F [ IT 3 <■<: 1 1 1 ) 
UC I ]*CC II<-TEMP t N D > F 0 R U1STEP lUNTiL N L)U BEGIN L * 1 " 1 J N*0 f S7 i FDR K<-1$T£ 

p iunttl l un o<-bci .kj xuiki + q; om *■ c nr n -« )/bi i iendisbj for i«-n step-iu 

NTIL 1 Du BEGIN G*05FDR KM + 1STEP i UNTIL N DO 0«-BI I , i\ ] x x C K ] + 0 > X r T I «-D I I ] -0 
LN0IS9: IF E = OThEN GO TO EXIT; J1 *0 J 1 T 1 : I F J1>K1 THEN GO TO F.' 2 1 N 0 R M *■ 0 1 FOR 
I«-l STEP IUNTIL N DO BEGIN 0 *■ 0 J L *■ I - 1 3 S 1 0 : F OR K«-1STF.P IUNTIL N DO Q*AtI»K 
]xXLK]+«; DI 1]«-C I 13 r«F SU S NOfiM«- ABSCDC m+NORMS 0«-0J SI2 : FOR K<-1STEP IUNTIL 
L Du &«-BC I »K 3XDIK3+05 DC I ]<■( DC I]-03/Br I , I IF.MDJEOR I<-Im STEP-lUNTlL IDO BEG 
IN w<-0;S13:FDP k«-I + 1STEP IUNTIL N DO G* B C I , K ] x[) [ K ] + w; X C I] <-X r I ] + 0 r I 1 -0 EN 
0;Sl4SJl«-Jt + tJSl5! IF NXE<N0RM Then GO TO itijexitiend; 


RLAU 

CCK 

f 

/ 

p 

wn , 

nw p 

WM 5 ; 




LUO: 

Rt AD 

C CR 

> / 

9 L p 

LI p L? p vv 

^ IP 

^ IT 

) [FINIS] J 

RLAU 

C C R 

9 

/ 

p 

kM 1 

, 

f HI f H 7 p 

PH , 

R 1 , 

r? ) ; 

Rfc A U 

CCS 

P 

/ 

9 

P , 

FOR JH STEP 1 UNTIL p 

00 

[LziJJ] ) ; 

REAU 

(CR 

> 

/ 

P 

K 1 X 

» K 2 X 

, K1Y , K 2 Y 

) > 



Rt AU 

C CP' 

f 

/ 

9 

C IX 

/ C2X 

> C1Y , c?r 

3 ; 
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D2X x 01 Y x 
R 2 X x R 1 Y f 


P2Y ) 
f-.P.i 3 


DM2 f h M2 / G 


ht.AU CCH x / x 01X 
READ (CK x / x ft 1 X 
G «■ 32.2 * 1? j 
PI «■ 3.14159265 I 
M<- W/G x DM1 + Km] / G 
RPP 4- IP / M ; RT T «• IT / M ; 

KP «• RPP/ (Lx L ) l R 1 + RTT / ( LU ) 

Lll * LI / L J L2 2 «- L2 / L 5 

RBI 4 HI - LI i R02 4- h? - LI ! 

PHI <- (PH x PI ) / IfcjO ; 

N 4- 8 ; RSW 4- FALSE x 

RAD 4- 5 7. 29 57 8 ) 

K1XA4-K IX /M x 
K 1 Y / M I 


EPS 4- 4 .o e-i.o ;ki 4- 2 


K1 Yr 4- 
C 1 X * 4- C 1 X / M 

C1YY 4- C1Y / M 
R 1 X X 4- P1X / M 

R 1 Y Y 4- h 1 Y / M 

0 1 X a 4 IJ 1 X / M 

l» 1 Y Y 4- D 1 Y / M 

Pi'll 4- Pt2 x P2 
Pul 4- 0 W 1 x R 1 
SI 4- AMI, Lt (PM 


K2XX 
K 2-Y Y 
C2XX 
C 2 Y Y 
R2XX 
R2Y Y 
D?X X 
D2Y Y 


K2X / M 
K2Y /M 
C2X / M 
C2Y / M 
R2X / M 
R?Y / M 
02 X / M 


02 Y / 


x SIM (PHI ) 
+ 0 w ? x h ? x 

. Pi) 1 1 ; 


COS (PHI ) 


Pl\i 2 4 - R 0 2 X R2 x fiM? X blN (PHI 5 
PD 2 4- Pul x R 1 x OmI + n'l? x R2 x 


Dm? x COS (PHI ) 


Sli 4- AhGLE ( PM2 x P02 1 ; 

« R i I E ( L P f 3 3 1 I 
W K 1 I E CLP x HE ADI) > 
vl R I I E ( L P t P A 0 E 3 ) J 
WhliE CL.P . H F_ 4 0 2 , L . Lt x L2 
K ) Y x r?Y x C 1 X x f?X x C 1 Y 
D1Y x 02 Y , IP x IT x R1 . P2 

1 4- i, ; 

FUR V: W 4-FP STEP OW UNTIL Wp. OU 
B E g j iv 


HI 
C ?Y x 
F H ) 


x H? 

R l :< x 


w i 
R2X 


WM1 
i R 1 Y 


14-1 + 1 ! 

U M E i. A t I 1 4- ,"W ; 

RPlf I ] + fiHEG A C IJxfcOx 


6 [ l 3 

4“ 

? x 

PI 

x Of F G A r I 3 s 

65 [ I 

BEGIN 

3 

4- -S 

f 

3 3 x S l I j ; 

REAL. 

XXXX X 



A[ 1 , 1 3 

4- 

K 1 *X 

- 

L22 x SS [13 J 

a t 1 x 2 3 

4 

C1XX 

X 

S [ 1 3 x 

A [ 1 . 3 3 

4- 

K2XX 

- 

l — i 
1—1 

on 

X 

A r 1 x 4 3 

4 

C 2XX 

X 

sen ; 

A [ 1 x 5 3 

4- 

R1YY 



AC 1x63 

4* 

0 1 Y Y 

X 

sc i 3 ; 

A [ 1 x 7 3 

4 

R2Y Y 


/ 

A[ 1 x 33 

4- 

T2YY 

X 

sen ; 

A [2x 1 3 

4 

- C1XX 

* s f 1 3 ; 

A[2, 23 

4 

K 1 XX 

- 

l?> x ssm ; 

A[2x 33 

4- 

- C?XX 

>4 s r i ] ; 

ALE, 4 j 

4- 

K ? X X 

- 

l i l x s s c n ; 

A t 2 x 5 3 

4- 

- 1) l Y Y 

x sen ; 

A C 2 x 6 1 

4- 

h*l YY 


i 


E 4-1 .00-6 


■V M2 x K1X x 
R 2 Y x [) 1 X 


K2X x 

x 02X x 
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A[2>7) 

A t 2* 8 3 
A [ 3 > 1 ] 

A 1 3 V 2 3 
A t 3 > 3 3 
A C 3 » 4 ] 
A [ 3 > 5 ] 
A[ >, 6 ) 

A [ 3» 7 3 
A [’3*8] 

A [ 4 , 1 3 
A [4, 2] 

A [ 4 » 3 ] 

A [ 4 » 4 3 
A£*t»5] 

A [ 4 » 6 ] 
A[A,7] 

A [ 4 > 8 3 
A[3» 1 3 
A[5,23 
A [5, 3 3 
A £ 3 > 4 3 
A[3,53 
A [ 5 > 6 3 
Atb* 73 
A C 5 , 8 3 
A [ 6 > 1 ] 

A [ 6 , 2 3 
A t 8 / 3 3 
A[6, 43 
A£6,53 
A [6, 83 
A [ 6 * 7 3 
A[6,83 
A [ 7 » 1 3 
A £ 7 > 2 ] 

A £ ( , 3 3 
A [ 7 , 4 3 
A L 7 , 5 3 
A [ 7 , 6 3 
A t 7 , 7 3 
A [ 7 , 8 3 
A[8, 1 3 
A[6,2J 
A [ 8 , 3 ] 

A [ 6/ 4 3 
A[8,53 
A i e » 6 3 
A £ 8 > 7 3 
A [ 8 * 8 ] 
CClJ 
C t 2 3 <- 
C C 3 3 <• 

C £ 4 j <- 
C£3j «- 
(Mx L 


<■ - 02YY x S r I 3 J 
<- ft 2Y Y ; 

<- R1 XX ; 

«- d i x x x sen ; 

R 2 X x ; 

<• D 2 X X X sen ’ 

<- K 1 Y Y - L22 X SSCI3 j 

«- ciyy x sen > 

<• K2 Y Y - L 1 1 X SSCI3 f 
«• C?YY X se I 3 > 

*■ “.uixx x sen > 

<- Rl'xx ; 

<- - L)2XX X s [ I 3 * 

<■ r ? x x > 

* - CIYY X SI 13 ; 

<• K 1 YY - L22 xSS [ I 3 ; 

<■ - C2Y Y x s e I 3 ; 

K?YY - Ll 1 X SS[ 13 ; 

<• R T X SSCI3 - K 1 X X x L 1 1 5 

* - C1XX X Lll x SCI) J 

«• - RT x SSC.I3 + K2XX x L 2 ? > 

*■ C2XX X L 22 X SCI3 i 
<- - R 1 Y Y x Lll ’> 

«- - RP x SSII3 - Lll x S[I3 xpiyy } 

«• R2YY x L? 2 J 

*• RP x SSCI3 + 02 YY x L?2 x Sri3 > 

<- cixx x Lii x sen } 

*■ RT X sse 13 - K 1 X X X Lll i 

* - C2XX x L22 x Sfli f 

- KT X sse 13 + K2XX x L22 J 

* R p x SSCI3 + 0 1 Y Y x Lll x SCI] > 

* -R1YY x Lll i 

«• - RP x ssrn - 02 Y Y X L 2? x SCI] i 
*■ R2YY x L 2 2 > 

*■ “ KlXX x Lll > 

«• RP x SSC 13 - 01XX x Lll x sm t 

* R 2 XX x L 2 2 / 

- ft P X sse I ] + 02XX x L22 x S C 1 3 f 
<• RT X SS[J3 - K1YY X Lll j 

<• - ciyy x li i x sen f 

<- -RT X s S c n + K 2 Y Y X L 22 > 

*• r. 2 Y Y x L 2 2 X S L I 3 1 

<• - KP x SSC 13 + 01XX x l 1 J xsc 13 "> 

* - R 1 X X x L 1 1 > 

* RP x SSCT3 - 0 2 X X x l22 x SFI3 i 

<■ R2XX x L?? > 

«• CIYY x Lll X sen f 

«- RT X SSC 13 - K1YY X Ll) J 

* ► c?yy x l 22 x sen « 

<■ - RT x SSCI3 + K2TY X L22 } 

(DM1 x SSC I 3 x R1 ) / H + ( UM2 x SSCI3 x R2 x 

- ( dm? x sstn x r? x s ] n cPHin / m ; 

{ UM2 X S S r T 3 x R? X SIN (PHD) / M J 
CD Ml X SSC 13 X R 1 ) / M + ( Dm2 X S S [ I 3 X R2 x 

(DM l X KOI X sse 13 X R1 + DM2 x R02 x SSCI3XR2 

) 5 


cost phi) i / m ; 

COS (PHI))/ M 5 
x COSCPHI ) ) / 
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cc6j ( 0 n 2 x ssrn x ro? x r? x sin c phi n / cmx li ; 

C c r j <- (Dm2 X SSII] X R02 x R2 x SIN C PHI 1) / (mx l) J 

C[bJ «• (DM. X Rfji X SSCI1 X R1 + DM2 x R02 x SS [ I J XR2 x COS(PHll) / 

( M x L ) ; 

End ; 

SULvE (N > A / C » RSW r E r K i , EPS » X » El > E2 ) i 
bb «■ X C 1 j X xm + X [ 2 ] x X[2] ; 

x'xim ♦ sort (pH) ; 

CC «- X r. J ] x X [ 3 1 + x [ 4 I X X [ 4 ] ; 

xx2i n <■ sort ( cc V ; 

DD <- Xtbl X X(S1 + X [ 6 1 X X(61 f 

YY1 ( I ) «■' SQkT ( DD ) ; 

ee «■ xm x x[7) + x r 6 ] x xm ; 

Y Y 2 [ I ] <■ SORT' ( EE ) i 

COMMENT the FOLLOWING CALCULATES me PHASE ancles between 
DISPLACEMENT AND UNBALANCE ; 

pxi <- ancle. (xr 2 ) . xn 3 ) ; fx2 <• anglf (xm , x c 3 1 i ; 

PYi «- ArvGLF (- X [ 5 ) > X [ 6 ] ) ; P Y 2 «- ANGLE (-XC 7 ] . X C 6 T ) f 

S I X ] C 1 1 <- (SI + PX 1 ) X HAD } S I X 2 m «■ (ST + PX 2 ) x RAD ! 

SIYKII «■ (SI + PYI) X RAD > o I Y 2 CI 1 «- (SI + PY 2 ) x RAD i 

COMMENT THE FOLLOWING CALCULATES THE PHASE ANGLES OF ALFA 1 
ALFA? AND UNBALANCE M[,MtNT > 

P A 1 +■ ANGLE ( X [ 4 ) - X[P] , X [ 3 ] - X[l] ) ; 

SI Alt I] «■ ( S I T + P A 1 ) x RAO; 

PAP *■ A i\ G l f (X[SI - X [ 7 ] , X[6] - X I 6 ) ) ; 

S I A 2 C II «- ( S 1 T + P A 2 ) x h A I) 5 

ALEfltlj «■ SORT (( X C 3 1 - X L 1 ] ) * 2 + ( X [ 4 1 - Xt2] ) * 2 ) / L > 

A L F A ? [ I : <- SORT (C X 1 7 J - X C 5 ] ) * P + ( x T 8 ] - X CM ) + 2 ) / L ; 

IF p = 0 then go TO L no 1 ; 

FUN J<-1 STEP 1 UNTIL P DU 
HE G i N 

ARBI TRAh YDTbPLACEMEMT ( LZtJ] > L • X r XL(I*J] » YlCI.JI , PXLtlxJ] » 
PYi.C J # J 1 ) J 

E. n o ; 

Lun j s FOPCF (C IX . X 1 X ,D1Y .» R 1 Y , X [ 1 ] > XE21 . * 1 * 1 * X[6l » SCI! » 

F X i [ II , P F X 1 [ f 1 . P F Y 1 J 

FUFiLE (C2X , K 2 X. , l'2Y , R 2 Y , >(31 - X t 41 , >(71 . X ( B 1 , SCIl * 

F X 2 [ I ] , P E > ? I. T 1 , HEY ) ; 


F U K C E ( 

Cl v > 

K 1 Y , 01 X 

9 

R 1 X , 

x rs j , 

X [6] 

, xt 1 3 

» xr2i»s( II > 

r r j m 

^ PFX 

, PFYirn 

) 

r 





F U rt c £ C 

C? y > 

< 2 Y , n 2 X 

9 

R 2 X » 

x r 7 i , 

X [6 3 

, xrn 

, X ( A 1 , S(I1 ^ 

f r ? c n 

> PFX 

» P F Y 2 r I 1 


; 






COMMENT THE FOLLOWING CALCULATES THE RELATIVE PHASE AnGlES 
BEfxEEM EXT . F <2 > FY1 , E Y 2 » WR1 THE UNRALANCE FORCE 5 
PUhfXICI] <- C S I + PFX 1(1 J ) x HAD i 
PUHf X2( I 1 ‘■(SI + PEX2C I ])x had 

PUriEYirn <- cs( + PFYiriDx rao ; 

PUHFY2U1 *■ ( S I + PFY2 [I])x k A D J 

end ; 

WRITE (lP > OUT 1 ) ; 

for JH STEP 1 UNTIL I DO 

6 E G J. N 

WRITE ( LP j- OUT? • OMEGA f J1 » X X 1 C J 1 , XX?[J] » SIXlCJ] 

SIX2CJ1 r ALTAI. [Jl , SIAltJ] t F X 1 [ J J » FX?CJ] » 

PUHF X 1 ( J J , PUBEX2 ( J J ) ; 

END 
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WRITE (LPCPAGEJ ) ; 

WRITE CLP , OUT 3 ) 5 

FOR J VI S T F P 1 UNTIL T on 

BEGIN 

WRITE ClP .» OUT? , L1MF.GA [J] , Y Y 1 [ U J , YY2CJ] , SmiJl 
SIY2EJ1 , A L F 4 2 [ J J ,SIA2CJ3 , F Y 1 [ J ] , FY?[ J.l , 

PUBFYHJ] , PUBFY2C.J] ) • 

E N 0 f 

WKI1E CLP [PAGE] ) 5 

If p=o then" go to loo el.se 

BEG 1 N 

WRITE CL P , OUT4 ) y 

FOR JM STEP 1 UNTIL P O'J 

FOR K v 1 STEP 1 UNTIL I DO 

BEGIN 

WRITE CLP , 0UT5 , L.7T.J] , XLtK,JI , YLCK.JT . PXL[K,J] x RAO , 

PYLIK,J] x RAO , OMEGA [ a T ) ) 

END 

End ; 

GOPLOTTERCRPM); 

GU TO LOO ; 

E2 5 WRITE CLP » < "ACCURACY NOT OBTAINED " > ) t 
GO TO LOO ; 

EH WRITE CLP * < " SINGULARITY OR ILL CONDITIONED MATRIX " > ) > 
Gu TO LOO ; 

FINIS! E NO . 

AKCTAn IS SEGMENT NUMBER 0 Q 6 5 > P R T AOGRFSS IS 0 1 1 A 
CUS is SEGMENT NUMBER 0066 , PRT A00RF5S IS 0074 
E a P IS SEGMENT NUMBER OOS7 » PR T ADDRESS IS 0071 
LN IS SEGMENT NUMBER 0063*PRT ADORESS IS 0070 
SIN lb SEGMENT number 0 0 6 9 » P R T ADORESS IS 007b 
SORT IS SEGMENT NUMBER 0070, PRT ADDRESS IS 044S 
OUTPUICW) is SEGMENT number 0071, PRT ADDRESS IS 0363 

block control is segment number 007 ?, prt address is ooos 

InPUTCW) IS SEGMENT N'JMblk 0073,PRT AunRESS IS 0370 


X TO 

1 HE I IS 

SEGMENT NUMBER 0074, PRT 

ADDRESS IS 

007? 

Gu T 0 

SOLVER 

IS 

SEGMENT N U M R E R 

0 0 7 5 H 

PRT 

ADDRESS 

IS 

0064 

Algol 

WRITE 

IS 

SEGMENT n U m 3 E R 

0 0 7 6 » 

PR1 

ADDRESS 

IS 

0 0 1 4 

Algol 

READ 

IS 

SEGMENT number 

0077, 

PRT 

ADDRESS 

IS 

0015 

Algol 

SELtCT 

IS 

SEGMENT number 

0 0 7 8 • 

PRT 

ADDRESS 

IS 

0016 

COMPILATION 

T I m t = 

137 

SE CONDS. 






NUMBER OF ERRORS DETECTED = 000. LAST 

Error 

n n 

card n 




number of sequence errors counted = 0 . 

NUMBER OF SLOW WARNINGS' = o. 

PRT S 1 7 l = 330J TOTAL SEGmFnT SI7E= 3463 WORDS. 
DISK STORAGE KEft.= 173 SE'GS.I NU. SFGS.= 79. 
EST1MATL0 Core STORAGE REQUIREMENT = 6394 WORDS. 
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TABLE B-I. - INPUT CHARACTERISTICS AND ROTOR HORIZONTAL RESPONSE FOR A SINGLE MASS ROTOR 

WITH FLEXIBLE SUPPORT AND DAMPING 


L = 

3* 00000+0 1 1 NCH 

Ll = 

1 • 50000+0 1 INCH 

L 2 - 

1 .50000+OllNCH 

H 1 = 

o.oooop+ooinch 

H2 = 

0 , 0000? +00 I NC H 

W- 

1 . 1OOO0 + O2LB 

WM1* 

2.OOOO0-O1LB 

WM2 = 

2. • 0000?" 0 1 L 8 

K 1 X = 

2.OOOO0+O4L8/IN 

K 2 X = 

1 .50003 + 04LB/IN 

K 1 Y = 

1.6OOO0+O4LB/IN 

K2Y = 

1.2000P+04LB/IN 

C1X- 

7. 00000+OOLB. SEC/IN 

C 2 X = 

7. oooo0+oolb. sec/in 

C 1 Y = 

7 , oooo0+oolb. sec/in 

C2Y = 

7.OOOO0+OOLB. SEC/IN 

R 1 X = 

O.OOOO0+OOLB/IN 

R2X = 

O.OOOO0+OOLB/IN 

R1Y = 

0.00000+0016/lN 

R 2 Y = 

O.OOOO0+OOLB/IN 

D 1 X = 

0.00000+OOLB. SEC/IN 

D2X = 

O.OOOO0+OOLB.SEC/IN 

01Y = 

o.oooo0+oolb. sec/in 

D2Y = 

o.oooop+oolb. sec/in 

IP = 

5.7OOO0-O1LB-IN-SEC2 

IT = 

2. 1600P + 01LB-IN-SEC2 

Rl = 

2 • 00000+00 Inch 

R2 = 

2.000GP+00INCH 


PHI® O*000O6* + 00DEGREE$ 


SPEED 

XI 

X2 

SIX1 

S I X 2 

ALFA 1 

S I A l 

F X 1 

FX2 

PUBFX1 

PUBFX2 

40 

9 ,90430-03 

3.25723-03 

8.5 

1^.5 

2.24510-04 

183.2 

1.90850+02 

4.91930+01 

3.5 

12.8 

41 

1,07463-02 

3,83203-03 

9.2 

20.8 

2.34490-04 

162.9 

2.15790+02 

5.78940+01 

4,0 

13.9 

42 

1.16773-02 

4.51793-03 

9.9 

22,2 

2. 4422P-04 

162.4 

2.34540+02 

6.82800+01 

4.6 

15.2 

43 

1 , 27 153-0 2 

5,34103-03 

10.8 

23,8 

2.53579-04 

161.7 

2.55430+02 

6.07500+01 

5.4 

16.7 

44 

1,38763-02 

6.33583-03 

11.9 

25.7 

2.62430-04 

180,8 

2,78850+02 

9.58240+01 

6.3 

18.3 

45 

1,51923-02 

7,54723-03 

13.1 

27.6 

2.70709-04 

179.5 

3.05330+02 

1.14190+02 

7.5 

20.3 

46 

1 ,668B3-02 

9 , 0 35o3-0 3 

14.7 

30.3 

2,78360-04 

177.7 

3.35470+02 

1.36760+02 

8.9 

22,6 

47 

1,84043-02 

1,08823-02 

16.6 

33,3 

2,85700-04 

175.2 

3.70040+02 

1.64770+02 

10.7 

25.4 

48 

2.03833-02 

1.31933-02 

19.0 

36.8 

2,93760-04 

171.6 

4,09920+02 

1.99840+02 

12,9 

28,8 

49 

2.26723-02 

1,61033-02 

22.0 

41.3 

3.05450-04 

166.6 

4.56070+02 

2.44020+02 

15.9 

33.1 

50 

2,53063-02 

1,97653-02 

26.0 

46,8 

3,26830-04 

160,2 

5.09180+02 

2.99650+02 

19.7 

38.5 

51 

2.82663-02 

2,43233-02 

31.2 

53.9 

3.67779-04 

153.1 

5.68870+02 

3.68910+02 

24.8 

45.4 

52 

3,13883-02 

2,98193-02 

38,0 

62,8 

4,40050-04 

147.1 

6.31840+02 

4.52450+02 

31.5 

54.1 

53 

3.42133-02 

3.59713-02 

46.8 

73.9 

5.51130-04 

144.4 

6.88880+02 

5.46050+02 

40. 1 

65.0 

54 

3,59103-0? 

4 ,19003-02 

57.3 

87.1 

6.94479-04 

146.0 

7.23240+02 

6.36330+02 

50,5 

76.1 

55 

3,56053-02 

4,62333-02 

68.6 

101,6 

8.44799-04 

151.4 

7.17290+02 

7.02460+02 

61,7 

92.4 

56 

3.31573-02 

4,80323-02 

79.1 

115.7 

9,71480-04 

158.5 

6.68150+02 

7.30130+02 

72.1 

106.4 

57 

2,93873-02 

4.75733-02 

87,4 

128,3 

t. 06120-03 

165.5 

5,92340+02 

7,23490+02 

60.2 

118.8 

56 

2.53483-02 

4,56573-02 

92.6 

138.6 

1,12069-03 

171.4 

5. HO60 + O2 

6.97740+02 

65.3 

128.9 

59 

2.17033-02 

4.37633-02 

94.8 

146,8 

1.16260-03 

176.2 

4.37700+02 

6.66200+02 

87,4 

137.0 

60 

1.87133-02 

4. 17713-02 

94.3 

153.4 

1.19730-03 

179.9 

3.77500+02 

6.36190+02 

86.8 

143.4 

61 

1.64233-02 

4.00703-02 

91.5 

156.6 

1.23060-03 

182.8 

3.31410+02 

6,10590+02 

83.9 

148.5 

62 

1.47993-02 

3.87053-02 

86.8 

162.9 

1.26579-03 

185.2 

2.98720+02 

5.90090+02 

79.1 

152.6 

63 

1.37823-02 

3.76593-02 

60.6 

166.5 

1.30400-03 

167.1 

2.76270+02 

5,74450+02 

72.9 

156.1 

64 

1.33013-02 

3.69003-02 

74.2 

169.6 

1.34630-03 

188.7 

2.68640+02 

5.63160+02 

66.2 

159.0 

65 

1.32763-02 

3.63923-02 

67,6 

172.3 

1.39309-03 

190,2 

2.68260+02 

5.55700+02 

59.4 

161.5 

66 

1,36313-02 

3.61033-02 

61.5 

174.7 

1.44410-03 

191,5 

2.75480+02 

5.51590+02 

53.2 

163.7 

67 

1.42853-02 

3,60083-02 

56.2 

176,8 

1.50000-03 

192.7 

2.88790+02 

5.50440+02 

47.6 

165.7 

66 

1 .51773-02 

3.60863-02 

51.7 

176.8 

1.56060-03 

193.8 

3.06910+02 

5.51940+02 

43.2 

167.5 

69 

1.62603-02 

3.63P33-02 

48.1 

180.6 

1.62670-03 

194.8 

3,28920+02 

5,55860+02 

39.5 

169.2 

70 

1.75023-02 

3,67073-02 

45.2 

182.3 

1.69809-03 

195.8 

3.54170+02 

5.62080+02 

36.5 

170.7 

71 

1 , 88643-02 

3.72303-02 

43.0 

184.0 

1.77509-03 

196.9 

3.82260+02 

5.70430+02 

34.1 

172.2 

72 

2.03953-02 

3,78903-02 

41.2 

185.6 

1.85820-03 

197.9 

4.12980+02 

5.80660+02 

32,2 

173.6 

73 

2.20313-02 

3.86843-02 

39.9 

187.1 

1.94799-03 

198.9 

4.46260+02 

5.93400+02 

30.6 

175.0 

74 

2.37953-02 

3.96133-02 

38.9 

188,6 

2.04480-03 

199,9 

4,82160+02 

6,08020+02 

29,7 

176,4 

75 

2.56943-02 

4.06823-02 

38.3 

190.2 

2.14970-03 

201.0 

5.20820+02 

6 . 24a 1 0+02 

28.9 

177.8 

76 

2.77393-02 

4 . 18963-02 

37.9 

191.7 

2.26330-03 

202.1 

5.62470+02 

6.43660+02 

28,4 

179,1 

77 

2.99453-02 

4.32653-02 

37.8 

193.3 

2.38669-03 

203.2 

6.07430+02 

6.65320+02 

26,2 

180.5 

76 

3.23323-02 

4.48003-02 

37.9 

194,9 

2.52090-03 

204.5 

6,56090+02 

6.89360+02 

28.1 

182.0 

79 

3 .49233-02 

4.65153-02 

38.2 

196.5 

2.66740-03 

205.0 

7.08920+02 

7.16190+02 

28.3 

183.5 



103 


W 


80 

3 . 77420-02 

4 . 84230-02 

36.7 

198.3 

2 . 82750-03 

207.2 

7 . 66440+02 

7 . 46070+02 

28.7 

185.1 

81 

4 , 08 180-02 

5 , 05420-02 

39.4 

200,1 

3 , 00280-03 

208.8 

8 . 29220+02 

7 . 79210+02 

29,3 

186,8 

82 

4 . 41780-02 

5 . 26830-02 

40.5 

2 02.2 

3 . 19450-03 

210.5 

8 . 97800+02 

8 . 15860+02 

30.2 

188.6 

83 

4 . 78430-02 

5 , 54580-02 

41.7 

? 0 4 , 3 

3 , 40390-03 

212.4 

9 . 72660+02 

8 , 56150+02 

31.4 

190.7 

84 

5 . 16290-02 

5 . 82670-02 

43.3 

206.7 

3 . 63150-03 

214.5 

1 . 05410+03 

9 . 00120+02 

32.9 

192.9 

85 

5 . 61300-02 

6 . 13030-02 

45,3 

209,4 

3 . 87710-03 

217,0 

1 . 14220+03 

9 , 47670+02 

34,7 

195.4 

86 

6 , 07590-02 

6 , 45440-02 

47.5 

212.3 

4 . 1397 P -03 

219.7 

1 . 23670+03 

9 . 98470+02 

36,8 

198,1 

8 7 

6 . 56580-02 

6 . 79540-02 

50.2 

215.5 

4 . 41700-03 

222.7 

1 , 33700+03 

1 . 05200+03 

39.3 

201.1 

88 

7 . 07030-02 

7 , 14800-02 

53.2 

219,0 

4 . 70580-03 

226.0 

1 . 44190+03 

1 . 10730+03 

42.2 

204,5 

89 

7 . 60610-02 

7 . 50540-02 

56.6 

222.8 

5 . 00070-03 

229.7 

1 . 55010+03 

1 . 16350+03 

45.5 

208.1 

90 

0 , 13940-02 

7 , 85880-02 

60.3 

228.9 

‘ 5 . 29640-03 

233.7 

1 , 65950+03 

1 . 21920+03 

49.1 

212.1 

91 

8 , 66640-02 

8 , 1 9 R 30-02 

64 . 3 

231.3 

5 . 58530-03 

238.0 

1 . 76760+03 

1 . 27280 + 0 3 

53.0 

216.4 

92 

9 . 17320-02 

8 , 51240-02 

68.7 

236.0 

5 . 85910-03 

242,6 

1 . 87180+03 

1 .,32250 + 03 

57.3 

220.9 

93 

9 , 64450-02 

, 76890-02 

73.3 

240.9 

6 , 10860-03 

247.4 

1 . 96880+03 

1 . 36650+03 

61.7 

225,7 

94 

1 , 00650-01 

, 01600-02 

78.1 

246.0 

6 . 32490-03 

252.4 

2 . 05550+03 

1 , 40280+03 

66,4 

230,6 

95 

1 , 04190-01 

. 18360-02 

83.1 

251,3 

6 . 49950-03 

257.6 

2 . 12880+03 

1 . 43000+03 

7 1 . 3 

235.7 

96 

1 , 06960-01 

>, 28410-02 

88 . 1 

256,6 

6 , 62630-03 

262.8 

2 . 18640+03 

1 . 44670+03 

76.2 

240,8 

97 

1 . 08890-01 

31450-02 

93.2 

261.8 

6 . 70180-03 

267.9 

2 . 22680+03 

1 . 45260+03 

81.1 

246,0 

96 

1 . 09950-01 

9 , 27580-02 

98.1 

267.0 

6 . 72570-03 

273.0 

2 . 24960+03 

1 , 44770+03 

86,0 

251,0 

99 

1 . 10190-01 

9 , 17370-02 

102.9 

272.1 

6 . 70100-03 

278.0 

2 . 25550+03 

1 . 43290+03 

90,7 

255,9 

100 

1 , 09690-01 

9 , 01700-02 

107.5 

276,9 

6 . 63350-03 

2 « 2.7 

2 . 24620+03 

1 . 40950+03 

95.1 

260,5 

101 

1 . 08560-01 

8 , 81620-02 

111.9 

281,5 

6 . 53030-03 

267.2 

2 . 22400+03 

1 . 37920+03 

99.4 

265.0 

102 

1 , 06910-01 

8 , 58280-02 

116.0 

285,8 

6 , 39940-03 

291,4 

2 , 19140+03 

1 , 34380+03 

103.4 

269.1 

103 

1 , 04890-01 

8 , 32720-02 

119,8 

289,8 

6 , 24630-03 

295,4 

2 , 15100+03 

1 . 30480+03 

107.1 

273.0 

104 

1 , 02600-01 

8 . 05890-02 

123,4 

293,5 

6 , 08400-03 

299,0 

2 , 10500+03 

1 . 26380+03 

110.5 

276.5 

105 

1 , 00140-01 

7 , 78550-02 

126,6 

296,9 

5 . 91240-03 

302.4 

2 , 05560+03 

1 . 22190+03 

113.6 

279.8 

106 

9 . 75960-02 

7 . 51300-02 

129.6 

300,1 

5 . 73810-03 

305.5 

2 . 00430+03 

1 . 18010+03 

116.5 

282.8 

107 

9 . 50270-02 

7 , 24580-02 

132.3 

303.0 

5 . 56460-03 

308.3 

1 . 95240+03 

1 , 13910+03 

119,1 

285.6 

109 

9 , 24760-02 

6 , 98700-02 

134.9 

305,7 

5 . 39450-03 

310.9 

1 . 90100+03 

1 . 09940+03 

121.5 

268,1 

109 

8 . 99810-02 

6 , 73870-02 

137.2 

308.1 

5 , 22960-03 

313.3 

1 , 85060+03 

1 , 06120+03 

123.7 

290,4 

110 

8 , 75640-02 

6 , 50200-02 

139.3 

310.4 

5 . 07120-03 

315.5 

1 . 80180+03 

1 . 02480+03 

125.7 

292.5 

111 

8 . 52380-02 

6 . 27750-02 

141.2 

312,5 

4 , 91970-03 

317.5 

1 . 75480+03 

9 . 90240+02 

127.5 

294,5 

112 

8 . 30140-02 

6 , 06530-02 

143.0 

314.4 

4 . 77570-03 

319.4 

1 . 70990+03 

9 , 57590+02 

129.2 

296.2 

113 

8 , 08950-02 

5 , 86520-02 

144.6 

316.2 

4 , 63920-03 

321.1 

1 . 66710+03 

9 , 26810+02 

130,7 

297.8 

114 

7 . 88820-02 

5 , 67690-02 

14 6.2 

317.8 

4 . 51000-03 

322.7 

1 . 62650+03 

8 . 97850+02 

132.1 

299.3 

115 

7 . 69720-02 

5 , 49980-02 

147.6 

319.3 

4 , 38810-03 

324.1 

1 . 58790+03 

8 . 70610+02 

133.4 

300.7 

116 

7 , 51650-02 

5 . 3334 P -02 

148,9 

320,8 

4 . 2729 P -03 

325.5 

1 . 55140+03 

8 , 45020+02 

134,5 

302,0 

117 

7 . 34540-02 

5 , 17700-02 

150.1 

322,1 

4 . 16440-03 

326.8 

1 . 51690+03 

8 , 20980+02 

135.6 

303,1 

118 

7 . 16360-02 

5 , 03010-02 

151.2 

323.3 

4 , 06200-03 

327.9 

1 . 48430+03 

7 , 98400+02 

136,6 

304,2 

119 

7 . 03060-02 

4 , 89190-02 

152.2 

324,5 

3 . 96540-03 

329.0 

1 . 45350+03 

7 . 77170+02 

137,5 

305.2 

120 

6 , 88590-02 

4 , 76190-02 

153.2 

325,5 

3 , 87430-03 

330.0 

1 . 42430+03 

7 . 57210+02 

138,4 

306,1 

121 

6 , 74900-02 

4 , 63960-02 

154.1 

326.5 

3 . 78830-03 

331.0 

1 . 39680 + 03 

7 . 38440+02 

139.2 

307.0 

122 

6 . 61940-02 

4 , 52430-02 

154.9 

327.5 

3 , 70700-03 

331.9 

1 . 37070+03 

7 . 20750+02 

139.9 

307,8 

123 

6 . 49670-02 

4 , 41560-02 

155.7 

328.4 

3 . 63020-03 

3 32 .7 

1 . 34600+03 

7 . 04090+02 

140,6 

308,5 

124 

6 , 38030-02 

4 , 31300-02 

156,4 

329,2 

3 . 55760-03 

333,5 

1 . 32270+03 

6 . 88380+02 

141.2 

309,2 

125 

6 . 27000-02 

4 , 21600-02 

157.1 

330,0 

3 . 48880-03 

334.3 

1 . 30050+03 

6 . 73550+02 

141,8 

309.9 

126 

6 . 16530-02 

4 , 12440-02 

157.8 

330,8 

3 . 42370-03 

335,0 

1 . 27950+03 

6 , 59530+02 

142.3 

310.5 

127 

6 . 06590-02 

4 . 03770-02 

158.4 

331.5 

3 . 36190-03 

335.6 

1 . 25960+03 

6 . 46280+02 

142.8 

311.0 

128 

5 , 97130-02 

3 , 95550-02 

159.0 

332.1 

3 . 30320-03 

336.3 

1 . 24070+03 

6 , 33740+02 

143.3 

311.6 

129 

5 . 88140-02 

3 . 87760-02 

159.6 

332,8 

3 . 24750-03 

336.9 

1 . 22270+03 

6 . 21850+02 

143.7 

312.0 

130 

5 , 79580-02 

3 . 80360-02 

160,1 

333,4 

3 . 19450-03 

337.4 

1 . 20560+03 

6 , 10580+02 

144.1 

312.5 

131 

5 , 71420-02 

1 . 73330-02 

160.6 

334.0 

3 . 14410-03 

338,0 

1 . 18930+03 

5 , 99890+02 

144.5 

312.9 

132 

5 . 63630-02 

1 . 66650-02 

161.0 

334,5 

3 . 09610-03 

338.5 

1 . 17380+03 

5 . 89730+02 

144.9 

313.3 

133 

5 . 56210-02 

J . 60290-02 

161.5 

335.0 

3 . 05030-03 

339,0 

1 . 15900+03 

5 . 80070+02 

145,2 

313.7 

134 

5 . 49110-02 

3 . 54230-02 

161.9 

335.5 

3 . 00670-03 

339.4 

1 .14490 + 03 

5 , 70880+02 

145.5 

314,1 

135 

5 . 42330-02 

3 , 48450-02 

16 ' 2.3 

336.0 

2 . 96500-03 

339,9 

1 . 13150+03 

- 5 . 62130+02 

145,8 

314.4 

136 

5 . 35850-02 

3 . 42930-02 

162.7 

336,5 

2 . 92510-03 

340.3 

1 . 11860+03 

5 . 53790+02 

146.1 

314.7 

137 

5 . 29640-02 

3 , 37670-02 

163.1 

336.9 

2 , 88700-03 

340.7 

1 , 10630+03 

5 . 45840+02 

146.3 

315.0 

138 

5 . 23690-02 

3 . 32630-02 

163.4 

337,3 

2 , 65050-03 

341.1 

1 * 09450 + 03 

5 . 38250+02 

146,6 

315.3 
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TABLE B-H. - INPUT CHARACTERISTICS AND ROTOR VERTICAL RESPONSE FOR A SINGLE MASS ROTOR 

WITH FLEXIBLE SUPPORT AND DAMPING 


L = 

3.00000+OlINCH 

L 1 = 

1.5OOO0+O1INCH 

L2= 

1 * 50000 + 0 1 inch 

H 1 = 

0 • 00000+00 INCH 

H2 = 

0 .OOOO0+OOINCH 

W = 

1 . 1QOG0 + Q2LB 

i(Ml = 

2.OOOO0-OU-B 

WM2 = 

2.OOOO0-O1LB 

K1X = 

2 . OOOO0+O4LB/IN 

K 2 X = 

1 .5OOO0 + O4|_B/IN 

K1Y = 

1 .6000P + 04LB/IN 

K 2 Y = 

1 .2OOO0+O4LB/IN 

C1X = 

7. OOOO0 + OOLB. SEC/IN 

C 2 X = 

7, OOOO0 + OOLB. SEC/IN 

C 1 Y = 

7 . o'ooop+oolb. sec/in 

C 2 Y = 

7. OOOOP + OOLB. SEC/IN 

K1X = 

O.OQOO0+OOLB/IN 

R 2 X = 

o.oooo0+oolb/in 

R1 Y = 

O.OOOO0+OOL6/1N 

R2Y = 

o.oooop+oolb/in 

D 1 X “ 

O.OOOOfs + OOUB. SEC/IN 

D2X = 

o.oooq0+oolb.sec/in 

diy= 

O.0OOO^+00Lb,Sec/IN 

D2Y = 

O.OOOO0+OOLb, SEC/IN 

IP = 

5.7OOO0-O1LB-IN-SEC2 

I T = 

2. 16OO0 + O1|_8-IN-SEC2 

Rl = 

2.OOOO0+OOINCH 

R2 = 

2 • 00000 + 00 I NCH 


P H I = o.oooo0+oodegrees 


SPEED 

Y 1 

Y 2 

SIY1 

SIY2 

ALFA2 

SI A2 

F Y 1 

F Y 2 

PU6FY1 

PUBFY2 

40 

1 .46930-02 

7,05640-03 

14.1 

30,4 

2.72160-04 

160.0 

2.36510+02 

6.55820+01 

7.8 

22.0 

41 

l ,62660-02 

8,56690-03 

15.6 

33.4 

2.82730-04 

1 ? 8 , 1 

2.61910+02 

1.04200+02 

9.4 

24.8 

42 

1 ,80790-02 

1 ,05060-02 

18,0 

36.9 

2.93970-04 

175.4 

2.91180+02 

1.27580+02 

11. b 

28.2 

43 

2,01740-02 

1 .29360-02 

20.9 

41.3 

3.07680-04 

171,6 

3.25030+02 

1.57150+02 

14.1 

32.3 

44 

2 , 25680-02 

1 .60140-02 

24,5 

46.7 

3.27710-04 

166,6 

3.64030+02 

1,94650+02 

17.6 

37.5 

4b 

2,53160-02 

1 .96920-02 

29.3 

53.4 

3.61290-04 

160.7 

4.08140+02 

2.41930+02 

22.2 

44.1 

46 

2, 62430-02 

2,46590-02 

35,6 

62.0 

4.19210-04 

154.9 

4.55480+02 

3.00090+02 

26.4 

52.4 

47 

3. 10100-02 

3. 01690-02 

43.7 

72.7 

5.11830-04 

151.2 

5,00260+02 

3.67360+02 

36,3 

62.9 

46 

3,29140-02 

3.57730-02 

53,5 

85.6 

6.39360-04 

151.3 

5.31180+02 

4.35670+02 

46.0 

75.7 

49 

3.31100-02 

4,02940-02 

64,4 

100,1 

7,83390-04 

155.3 

5.34540+02 

4.91260+02 

56,7 

89.9 

50 

3,13010-02 

4.27110-02 

74,6 

114.5 

9 , 14660-04 

161.6 

5,05530+02 

5.21060+02 

66.8 

104.1 

51 

2 . 61200-02 

4 , 30000-02 

82.6 

127.5 

1 .01520-03 

168,2 

4.54320+02 

5,25040+02 

74,6 

116.9 

52 

2,45670-02 

4. 19630-02 

67.5 

138,4 

1.08670-03 

174.1 

3.97060+02 

5.12660+02 

79.4 

127.6 

53 

2,13440-02 

4,04590-02 

69.4 

147,1 

1.13990-03 

178,9 

3,45120+02 

4.94560+02 

81.1 

136.1 

54 

1,67510-02 

3,89340-02 

88.5 

154.0 

1 . 18460-03 

182.7 

3.03300+02 

4.76270+02 

60.1 

142.8 

55 

1,68400-02 

3.76260-02 

85.4 

159,7 

1.22700-03 

185.8 

2.72510+02 

4.60600+02 

76.6 

148.3 

56 

1.55770-02 

3,66040-02 

80.8 

164.3 

1.27110-03 

166,2 

2,52160+02 

4 .48400+02 

72.0 

152.7 

57 

1,49050-02 

3.58690-02 

75.1 

168.2 

1.31910-03 

190.3 

2.41380+02 

4.39720+02 

66,2 

156.4 

56 

1,47580-02 

3.53990-02 

69,2 

171,6 

1.37220-03 

192,1 

2.39120+02 

4.34280+02 

60.1 

159.6 

59 

1,50590-02 

3.51679-02 

63,6 

174.5 

1,430? 0"O3 

193.6 

2.44100+02 

4.31760+02 

54,4 

162.3 

60 

1,57250-02 

3,51460-02 

58.6 

177.2 

1.49480-03 

195.1 

2.55000+02 

4.31630+02 

49,3 

164.8 

61 

1,66840-02 

3.53150-02 

54.5 

179,6 

1.56470-03 

196.5 

2.70670+02 

4.34250+02 

45.0 

167,0 

62 

1 ,78790-02 

3,56590-02 

51.2 

161.9 

1.64070-03 

197,9 

2.90190+02 

4.36810+02 

41,5 

169.1 

63 

1,92720-02 

3,61640-02 

48.7 

164,1 

1.72300-03 

199.3 

3.12950+02 

4.45390+02 

38,9 

171.1 

64 

2,08400-02 

3,68230-02 

46.6 

186,2 

1.61210-03 

200.6 

3 . 38550+02 

4.53670+02 

36.8 

173.0 

65 

2,25670-02 

3,76290-02 

45.5 

188,2 

1,90830-03 

202.0 

3.66790+02 

4,64190+02 

35.3 

174.8 

66 

2 ,44460-02 

3.65610-02 

*4,6 

190,3 

2.01210-03 

203.5 

3.97550+02 

4.76320+02 

34.3 

176.7 

67 

2.64630-02 

3.96760-02 

44.2 

192,3 

2.12400-03 

205.0 

4.30850+02 

4.90260+02 

33.6 

178.5 

68 

2.86750-02 

4.09150-02 

44 . 1 

194.4 

2.24450-03 

206.6 

4.66750+02 

5.06000+02 

33.5 

180.4 

69 

3.10310-02 

4.22990-02 

44,4 

196.5 

' 2.37420-03 

208.3 

5,05350+02 

5,23570+02 

33,7 

182.4 

70 

3.35590-02 

4.36310-02 

45,0 

198.7 

2.51360-03 

210.1 

5.46790+02 

5.43000+02 

34,1 

164.4 

71 

3,62670-02 

4.55100-02 

45,8 

201,0 

2,66330-03 

212.0 

5,91210+02 

5.64 310 + 02 

34.8 

186.5 

72 

3.91630-02 

4.73390-02 

46,9 

203.5 

2.82360-03 

214.1 

6.38760+02 

5,87510+02 

35.7 

188.7 

73 

4,22540-02 

4,93150-02 

48.3 

206.0 

2.99490-03 

216.3 

6,89540+02 

6.12590+02 

37.0 

191.0 

74 

4.55430-02 

5 ,14340-02 

50.0 

206,7 

3,17710-03 

218.7 

7.43620+02 

6.39510+02 

38.5 

193.5 

75 

4.90300-02 

5.36870-02 

52,0 

211.6 

3,37000-03 

221,3 

8.00970+02 

6.68140+02 

40,3 

196.2 

76 

5,27040-02 

5,60680-02 

54,2 

214.7 

3.57290-03 

224,1 

8,61460+02 

6,98300+02 

42,4 

199,1 

77 

5.65450-02 

5.85210-02 

56,7 

218.0 

3.76420-03 

227.2 

9.24760+02 

7.29680+02 

44,8 

202,2 

76 

6,05200-02 

6.10400-02 

59,6 

221,5 

4.00170-03 

230.5 

9,90320+02 

7,61830+02 

47.5 

205,6 

79 

6.45760-02 

6.35670-02 

62.7 

225,3 

4.22200-03 

234,1 

1,05730+03 

7.94130+02 

50.5 

209.1 
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60 

6 , 86430-02 

6 , 60353-02 

66 .“2 

22973 “ 

474 “ 4 ‘ OT 0 - O 3 

237 . 9 - 

1712450+03 

8 , 25780+02 

53.8 

212.9 

81 

7 , 2628?-02 

6 . 83683-02 

69.9 

233.5 

4 . 65220-03 

242.0 

1 , 19050+03 

8 , 55810+02 

57.3 

217.0 

82 

7 , 64243-02 

7 . 04783-02 

73.9 

238,0 

4 . 8499 P -03 

246.3 

1 . 25350+03 

8 , 83100+02 

61.2 

221.3 

83 

7 , 99083-02 

7.227 33-02 

78.1 

242.7 

5 . 02690-03 

250.8 

1 . 31140+03 

9 , 06520+02 

65.2 

225.7 

84 

8 , 29653-02 

7 . 36703-02 

8 2.4 

247.4 

5 . 17650-03 

255.-4 

1 . 36240+03 

9 . 25000+02 

69.4 

> 30.3 

65 

8 . 54913-02 

7 . 46063-02 

86.9 

252.3 

5 . 29310-03 

260.1 

1 . 40470+03 

9 . 37710+02 

73.8 

> 35.0 

66 

8 , 74163-02 

7 , 50443-02 

91.4 

257.1 

5 . 37340-03 

264.8 

1 . 43 ^ 20+03 

9 . 44210+02 

78,1 

239.6 

87 

8 . 87153-02 

7 . 49903-02 

95.8 

261,8 

5 , 41640-03 

269.4 

1 . 45950+03 

9 . 44520+02 

82.4 

244.1 

86 

8 . 94063-02 

7 . 44820-02 

100.1 

266.4 

5 . 42410-03 

273.9 

1 , 47180+03 

9 . 39120+02 

86.5 

248.5 

89 

8 , 95513-02 

7 , 35913-02 

104.2 

270.8 

5 . 40090-03 

278.2 

1 . 47510+03 

9 , 28890+02 

90.5 

252.7 

90 

8 , 92413-02 

7 . 24053-02 

108.1 

274.9 

5 , 35260-03 

282.2 

1 , 47090+03 

9 . 14910+02 

94.2 

256.7 

91 

8 , 85803-02 

7 . 10163-02 

111 . a 

278.8 

5 , 26620-03 

286.0 

1 . 46100+03 

6 . 98340+02 

97.7 

260.3 

92 

8 , 76723-02 

6 , 95093-02 

115,2 

282,4 

5 . 20740-03 

289,5 

1 . 44690+03 

8 . 80250+02 

101,0 

263.8 

93 

8 . 66053-02 

6 , 79530-02 

118.3 

285,8 

5 . 12160-03 

292.8 

1 . 43030+03 

8 , 61500+02 

104.0 

267,0 

94 

8 . 54483-02 

6 . 63933-02 

121.2 

288.9 

5 , 03270-03 

295.9 

1 . 41210+03 

8 . 42670+02 

106.8 

269.9 

95 

8 , 42423-02 

6 . 46543-02 

124,0 

291,9 

4 . 94260-03 

298. 7 

1 . 39310+03 

6 , 24080+02 

109,4 

272.7 

96 

8 , 30093-02 

6 . 33453-02 

126.6 

294.8 

4 . 85300-03 

301,5 

1 . 37360+03 

8 , 05620+02 

111.8 

275.4 

97 

8 , 17543-02 

6 , 18603-02 

129.1 

297.5 

4 . 76320-03 

304,1 

1 . 35380+03 

7 . 87840+02 

114,1 

277.9 

96 

8 , 04753-02 

6 . 03913-02 

131.4 

300,1 

4 , 67310-03 

306,6 

1 . 33350+03 

7 , 7 0020+02 

116.3 

280.3 

99 

7 . 91653-02 

5 , 89293-02 

133,6 

302,6 

4 , 58220-03 

308,9 

1 . 31270+03 

7 . 52260+02 

116,4 

282,6 

100 

7 , 78233-02 

5 , 74703-02 

135.8 

305,0 

4 . 49020-03 

311.2 

1 , 29140+03 

7 , 34500+02 

120.4 

284,9 

101 

7 , 64523-02 

5 , 60153-02 

137.8 

307.3 

4 , 39730-03 

313.4 

1 , 26950+03 

7 . 16760+02 

122,3 

287.0 

102 

7 , 50593-02 

5 . 45693-02 

139.7 

309,4 

4 . 30390-03 

315,4 

1 . 24730+03 

6 . 99090+02 

124.1 

288,9 

103 

7 , 36543-02 

5 , 31393-02 

141.5 

311,5 

4 , 21050-03 

317.3 

1 . 22480+03 

6 , 81600+02 

125,7 

290.8 

104 

7 , 22493-02 

5 . 17353-02 

143,2 

313,4 

4 , 11800-03 

319.1 

1 . 20230+03 

6 . 64390+02 

127,3 

292.5 

105 

7 , 08563-02 

5 , 03653-02 

144.8 

315.2 

4 . 02680-03 

320.8 

1 . 18000+03 

6 . 47590+02 

128.7 

294.2 

106 

6 , 94863-02 

4 . 90363-02 

146,3 

316,9 

3 . 93760-03 

322,4 

1 . 15800+03 

6 . 31200+02 

130.1 

295.7 

107 

6 . 81473-02 

4 , 77543-02 

147 . 1 

318.5 

3 , 85120-03 

323.9 

1 . 13650+03 

6 . 15540+02 

131.3 

297.1 

108 

6 , 68463-02 

4 , 65220-02 

149.0 

319,9 

3 . 76750-03 

325.3 

1 . 11570+03 

6 , 00410+02 

132,5 

298.3 

109 

6 , 55893-02 

4 , 53423-02 

150.2 

321.3 

3 , 68700-03 

326,6 

1 . 09550+03 

5 . 65920+02 

133.5 

299.5 

110 

6 . 43783-02 

4 , 42163-02 

151.3 

322,6 

3 . 60970-03 

327.8 

1 . 07610+03 

5 . 72090+02 

134,5 

300.6 

111 

6 . 32143-02 

4 , 33433-02 

152.3 

323.8 

3 . 53570-03 

328,9 

1 , 05750+03 

5 . 58930+02 

135.4 

301.7 

112 

6 , 20993-02 

4 , 21233-02 

153.3 

324.9 

3 . 46510-03 

329.9 

1 , 03960+03 

5 . 46410+02 

136,2 

302.6 

113 

6 . 10323-02 

4 . 11533-02 

154.2 

326,0 

3 . 39770-03 

330,9 

1 . 02250+03 

5 , 34520+02 

137,0 

303.5 

114 

6 , 00133-02 

4 , 02323-02 

155.1 

327,0 

3 . 33350-03 

331.8 

1 , 00630+03 

5 , 23240+02 

137.7 

304.3 

115 

5 . 90403-02 

3 , 93583-02 

155.9 

327.9 

3 . 27230-03 

332.7 

9 . 90710+02 

5 , 12540+02 

138,3 

305.0 

116 

5 . 81113-02 

3 . 85293-02 

156.6 

328.7 

3 . 21410-03 

333.5 

9 . 75900+02 

5 . 02400+02 

136.9 

305.7 

117 

5 , 72253-02 

3 . 77413-02 

157.3 

329,6 

3 , 15860-03 

334.2 

9 . 61790+02 

4 . 92780+02 

139,5 

306.4 

118 

5 , 63803-02 

3 . 69933-02 

158.0 

330.3 

3 . 10590-03 

334.9 

9 . 48350+02 

4 . 83660+02 

140.0 

307.0 

119 

5 , 55733-02 

3 . 62830-02 

158.6 

331.1 

3 . 05560-03 

335.6 

9 . 35540+02 

4 . 75000+02 

140.5 

307,5 

120 

5 . 48043-02 

3 , 56083-02 

159.2 

331.6 

3 . 00770-03 

336.2 

9 . 2 3330+02 

4 . 66790+02 

140.9 

308.0 

121 

5 , 40693-02 

3 . 49660-02 

159 ,? 

332.4 

2 . 96210-03 

336.8 

9 . 11700+02 

4 . 59000+02 

141.3 

308.5 

122 

5 . 33673-02 

3 , 43550-02 

160.2 

333.0 

2 , 91860-03 

337.4 

9 . 00610+02 

4 . 51590+02 

141.7 

308.9 

123 

5 . 26973-02 

3 . 37730-02 

160.7 

333.6 

2 . 87710-03 

337.9 

8 . 90040+02 

4 . 44560+02 

142,0 

309.4 

124 

5 . 20563-02 

3 . 32193-02 

161.2 

334,2 

2 . 83740-03 

338,5 

8 . 79950+02 

4 , 37860+02 

142.4 

309.7 

125 

5 . 14433-02 

3 . 26913-02 

161.6 

334.7 

2 . 79960-03 

338.9 

8 . 70320+02 

4 , 31500+02 

142.7 

310.1 

126 

5 , 08563-02 

3 , 21863-02 

162.1 

335,2 

2 . 76340-03 

339,4 

8 . 61120+02 

4 . 25440+02 

142,9 

310.4 

127 

5 . 02943-02 

3 . 17053-02 

162.5 

335.7 

2 . 72880-03 

339.9 

8 . 52330+02 

4 , 19660+02 

143.2 

310.8 

128 

4 , 97563-02 

3 , 12453-02 

162.8 

336.2 

2 . 69570-03 

340 , 3 . 

8 . 43930+02 

4 . 14150+02 

143,5 

311.1 

129 

4 , 92403-02 

3 , 08063-02 

163.2 

336.6 

2 . 66400-03 

340.7 

8 . 35900+02 

4 . 08900+02 

143.7 

311.3 

130 

4 . 87453-02 

3 . 03853-02 

163.5 

337,1 

2 . 63360-03 

341.1 

8 , 28220+02 

4 , 03890+02 

143.9 

311.6 

131 

4 , 82693-02 

2 . 99820-02 

163.9 

337,5 

2 , 60450-03 

341.4 

8 . 20860+02 

3 . 99110+02 

144.1 

311.8 

132 

4 . 78133-02 

2 . 95960-02 

164,2 

337,9 

2 . 57660-03 

341.8 

8 . 13810+02 

3 . 94530+02 

144.3 

312.0 

133 

4 . 73743-02 

2 . 92260-02 

164.5 

338.2 

2 . 54970-03 

342.1 

8 . 07060+02 

3 . 90160+02 

144.4 

312.2 

134 

4 . 69533-02 

2 * 88713-02 

164.6 

338.6 

2 . 52400-03 

342.4 

8 , 00590+02 

3 , 65980+02 

144,6 

312.4 

135 

4 . 65473-02 

2 . 65300-02 

165.1 

338,9 

2 . 49920-03 

342.8 

7 . 94380+02 

3 . 81980+02 

144.7 

312.6 

136 

4 . 61573-02 

2 . 82030-02 

165.4 

339.3 

2 , 47540-03 

343.1 

7 . 88430+02 

3 . 76150+02 

144.9 

312.8 

137 

4 . 57803-02 

2 , 78863-02 

165,6 

339,6 

2 . 45240-03 

343.3 

7 . 62710+02 

3 . 74480+02 

145.0 

312.9 

138 

4 . 54163-02 

2 . 75853-02 

165.9 

339,9 

2 , 43040-03 

343,6 

7 . 7 7220+02 

3 , 70960+02 

145.1 

313.1 


TABLE B-m. - ROTOR DISPLACEMENTS AND PHASE ANGLES 



[Positions on shaft correspond to number of places selected on input data card 4.] 


L = 

3.0000P+01INCH 

L 1 - 1.5000P+01INCH 

L 2 = 

1 • 5000P + 0 1 1 NCH 

Hl = 

0. 0000^+00lNCH 

H2 = 

O.OOOOP+OOINCH 

W= 1.1000P+02LB 

rtMl = 

2.0000P-01LB 

WM2 = 

2.00000-OlLB 

K1X = 

2.0000O+04L8/IN 

K 2X - 1 .5000e+Q4LB/IN 

K 1 Y = 

1.6000e+04LB/lN 

K2r = 

1 .2000? + 04|_B/IN 

C1X = 

7.0000P+00LH. SEC/IN 

C 2X= 7. oooo^ + o olb.sec/in 

C1Y = 

7. ooooe+ooLb. sec/in 

C 2 Y = 

7. OOOuP+OOLd. SEC/IN 

H 1 X = 

O.OOOOP + OOLB/I*J 

R? X = 0.0000P + 00L8/IM 

K 1 Y = 

0.0000«+00LB/lN 

R 2 Y = 

O.OOOO^+OOLB/IN 

D 1 X = 

O.OOOO0+OOLB. SEC/IN 

02X= O.OOOOP+OOLB. SEC/IN 

D 1 Y = 

o .oooo^+ooifc) .sec/ 

D2Y = 

o,oooo®+oolb.sec/in 

IP = 

5.7OOO0-O1LB-IN-SEC2 

I T = 2, 16G0fJ + 0lL8-IN-SEC2 
PHI= O.OOOOe+OOUEGREES 

R 1 = 

2.0000?+00!nCH 

R2 = 

2 , OOOuP + 00 I nC h 


LZ 

XL 

YL 

PXL 

PYL 

SPEED 

15.0 

6.55823-03 

1.07793-02 

11.21 

19,35 

40.00 

15.0 

7.25093-03 

1.22963-02 

12.20 

21.87 

41.00 

15.0 

8.06013-03 

1.41133-02 

13.34 

24.97 

42.00 

15.0 

8.97923-03 

1.63053-02 

14.65 

28.82 

43.00 

15.0 

l .00/143-02 

1.89513-02 

16.18 

33,68 

44.00 

15.0 

1.12873-02 

2.21123-02 

17.99 

39.09 

45.00 

15.0 

1.27533-02 

2.57553-02 

20.15 

47.87 

46.00 

15.0 

1 .44983-02 

2.96133-02 

22.76 

57.98 

47.00 

15.0 ■ 

1,65933-02 

3.30083-02 

25.98 

70.27 

48,00 

15.0 

1.91233-02 

3.49553-02 

30.01 

84.03 

49.00 

15.0 

2.21703-02 

3.48393-02 

35.13 

97.76 

50.00 

15.0 

2.57853-02 

3,29903-02 

41.68 

110.01 

51.00 

15.0 

2.98933-02 

3.02863-02 

50.08 

120.04 

52.00 

15.0 

3.41163-02 

2.74573-02 

60.66 

127.90 

53.00 

15.0 

3.76043-02 

2 . 48603-02 

73.35 

133.97 

54.00 

15.0 

3,92693-02 

2.26033-02 

87.29 

138.66 

55,00 

15.0 

3.86123-02 

2.06813-02 

100.92 

142.32 

56.00 

15.0 

3,61943-02 

1.90483-02 

112.86 

145.20 

57.00 

15.0 

3.30180-02 

1.76583-02 

122.56 

147.46 

50,00 

15.0 

2.98173-02 

1.64663-02 

130.15 

149.24 

59.00 

15.0 

2,69253-02 

1.54443-02 

136.02 

150.62 

60.00 

15.0 

2.44323-02 

1.45573-02 

140.58 

151.67 

61.00 

15.0 

2.23183-02 

1.37823-02 

144.15 

152,45 

62,00 

15.0 

2.05303-02 

1.31013-02 

146.98 

153.00 

63. OC 

15.0 

1 .90113-02 

1.25013-02 

149.23 

153.33 

64.00 

15.0 

1.77133-02 

1 .19693-02 

151.03 

153.46 

65.00 

15.0 

1.65943-02 

1.14973-02 

152.48 

153.42 

66.00 

15.0 

1.56213-02 

1 . 10783-02 

153.65 

153.20 

67.00 

15.0 

1.47693-02 

1 .07073-02 

154.56 

152.81 

66,00 

15.0 

1.40163-02 

1.03823-02 

155.28 

152.26 

69.00 

15.0 

1.33453-02 

1.01003-02 

155.81 

151.54 

70.00 

15.0 

1 .27453-02 

9.06163-03 

156.19 

150.67 

71,00 

15.0 

1 .22033-02 

9,66673-03 

156.41 

149.66 

72.00 

15.0 

1 .17123-02 

9.51743-03 

156.50 

148.52 

73.00 

15.0 

1.12653-02 

9.41623-03 

156.45 

147.27 

74.00 

15.0 

1.08563-02 

9.36633-03 

156.26 

145.95 

75.00 

15.0 

1,04803-02 

9,37083-03 

155.94 

144.60 

76.00 

15.0 

1 .01343-02 

9.43253-03 

155.47 

143.29 

77.00 

15.0 

9,81693-03 

9.55283-03 

154.64 

142.09 

76.00 

15.0 

9,52693-03 

9.73113-03 

154.04 

141,06 

79.00 
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15.0 

9 . 26450-03 

9 . 96350-03 

153.05 

140.29 

80.00 

15.0 

9 . 03200-03 

1 . 02430-02 

151.84 

139,84 

81.00 

15.0 

8 . 83360-03 

1 . 05570-02 

150.42 

139.75 

82.00 

15.0 

8 . 67570-03 

1 . 08910-02 

148.75 

140.04 

83,00 

15.0 

8 . 56670-03 

1 . 12280-02 

146,86 

140.71 

84,00 

15.0 

9 . 51670-03 

1 . 15500-02 

144.79 

141.72 

85.00 

15.0 

8 . 53610-03 

1 . 1 8400-02 

142,60 

143.02 

06.00 

15.0 

8 , 63380-03 

1 . 20860-02 

140.40 

144.52 

87.00 

15.0 

8 , 8 1560-03 

1 . 22800-02 

138.32 

146.16 

08.00 

15.0 

9 , 08260-03 

1 . 24200-02 

136.51 

147,87 

89,00 

15.0 

9 , 43000-03 

1 . 25090-02 

135.09 

149.58 

90.00 

15.0 

9 , 84680-03 

1 . 25510-02 

134,16 

151.24 

91.00 

15.0 

1 . 03170-02 

1 , 25560-02 

133.78 

152.83 

92.00 

15.0 

1 , 08190-02 

1 . 25310-02 

133.96 

154.33 

93.00 

15.0 

1 . 13300-02 

1 . 24840-02 

134.68 

155,74 

94.00 

15.0 

1 • 1 6740-02 

1 . 24200-02 

135,87 

157.05 

95,00 

15.0 

1 . 22810-02 

1 . 23450-02 

137.46 

158.28 

96,00 

15.0 

1 . 26800-02 

1 . 22600-02 

139.35 

159,44 

97,00 

15.0 

1 . 30080-02 

1 . 21680-02 

141.44 

160,53 

96,00 

15.0 

1 . 32600-02 

1 , 20690-02 

143.65 

161,56 

99,00 

15.0 

1 , 34350-02 

1 . 19660-02 

143.89 

162.53 

100.00 

15.0 

1 . 35380-02 

1 . 18590-02 

148.09 

163.44 

101,00 

15,0 

1 . 35760-02 

1 . 17480-02 

150.22 

164,29 

102,00 

15.0 

1 . 35610-02 

1 . 16350-02 

152.23 

165,09 

103.00 

15.0 

1 . 35020-02 

1 . 15210-02 

154.12 

165,83 

104,00 

15.0 

1 . 34090-02 

1 . 14080-02 

155.86 

166.52 

105,00 

15.0 

1 . 32920-02 

1 . 12940-02 

157.46 

167.16 

106,00 

15.0 

1 , 31560-02 

1 . 11830-02 

158,93 

167,74 

107,00 

15.0 

1 . 30090-02 

1 . 10740-02 

160.27 

166.29 

108,00 

15.0 

1 , 28550-02 

1 . 09670-02 

161.48 

168,79 

109,00 

15.0 

1 . 26970-02 

1 . 08640-02 

162.58 

169,25 

110,00 

15.0 

1 . 25390-02 

1 . 07640-02 

163.59 

169.68 

111,00 

15.0 

1 , 23830-02 

1 . 06670-02 

164.50 

170.08 

112,00 

15.0 

1 , 22290-02 

1 . 05740-02 

165.33 

170,44 

113,00 

15.0 

1 . 20790-02 

1 . 04840-02 

166,08 

170,78 

114,00 

15.0 

1 , 19340-02 

1 . 03970-02 

166.77 

171.10 

115,00 

15.0 

1 , 17930-02 

1 . 08140-02 

167.40 

171,39 

116.00 

15.0 

1 , 16580-02 

1 . 02340-02 

167.98 

171.67 

117.00 

15.0 

1 . 15280-02 

1 . 01570-02 

168,51 

171.92 

118.00 

15.0 

1 . 14030-02 

1 . 00830-02 

169.00 

172.17 

119.00 

15.0 

1 . 12830-02 

1 . 00120-02 

169.44 

172.39 

120,00 

15.0 

1 . 11690-02 

9 . 94380-03 

169.66 

172.60 

121.00 

15.0 

1 , 10590-02 

9 , 87820-03 

170.24 

172.60 

122,00 

15.0 

1 . 09540-02 

9 . 81510-03 

170.60 

172.99 

123.00 

15.0 

1 , 08530-02 

9 . 75450-03 

170.93 

173.16 

124,00 

15.0 

1 . 07570-02 

9 . 69610-03 

171.23 

173.33 

125.00 

15.0 

1 , 06650-02 

9 , 63990-03 

171.52 

173,49 

126,00 

15,0 

1 . 05760-02 

9 , 58580-03 

171.79 

173,64 

127.00 

15.0 

1 . 04920-02 

9 . 53370-03 

172.04 

173.78 

128.00 

15.0 

1 . 04100-02 

9 . 48350-03 

172.27 

173.91 

129.00 

15.0 

1 . O 3320 - C 2 

9 . 43500-03 

172.49 

174,04 

130.00 

15.0 

1 . 02580-02 

9 . 38830-03 

172.70 

174.16 

131.00 

15.0 

1 , 01860-02 

9 . 34320-03 

172.90 

174.28 

132,00 

15.0 

1 . 01170-02 

9 . 29960-03 

173.08 

174,39 

133.00 

15.0 

1 , 00510-02 

9 . 25760-03 

173,25 

174,50 

134,00 

15.0 

9 , 98670-03 

9 . 21690-03 

173.42 

174,60 

135,00 

15.0 

9 . 92530-03 

9 . 17760-03 

173.57 

174,70 

136.00 

15.0 

9 . 86620-03 

9 . 13950-03 

173.72 

174.79 

137.00 

15.0 

9 . 80920-03 

9 . 10270-03 

173.86 

174.86 

138.00 
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L = 
H2 = 
K1X = 
C1X = 
K 1 X = 
D 1 X = 
I P = 


TABLE B-m. - Concluded. ROTOR DISPLACEMENTS AND PHASE ANGLES 
[Positions on shaft correspond to number of places selected on input data card 4.] 


3.0000P+011NCH 

Ll = 

1.5000P+01INCH 

L 2 = 

1 » 5000P+0 1 INCH 

Hl = 

O.OOOO^+OOINCH • 

O.OOOOP+OOINCH 

W = 

1 . 1000P + 02LB 

rtM 1 = 

2.0000P-01L8 

W M2 = 

2 .OOOOP-OlLd 

2 • 00000 + 04L8 / I N 

K2X = 

1 .5000P+04LB/IN 

K 1 Y = 

1 .6000P+U41B/1N 

K 2 r = 

1 .2OOO0 + O4LB/IN 

7. 0000P+00LH. SEC/IN 

C 2 X = 

7 .ooou<s+oulb. sec/in 

C t Y = 

7. ooooe+ooLe. sec/in 

C2Y = 

7.000U? + 00Lt).SEC/IM 

O.0000^+00LH/IN 

R2X = 

0.0000P+0ULB/IN 

N1 Y = 

0.0000S+00LB/IN 

R2Y = 

O.OOOO^+OOLd/lN 

0.00009+OOLH. SEC/IN 

02X = 

0.00UUP+00LB. SEC/IN 

01 Y* 

o.oooo^+oolb, sec/in 

02Y = 

0,00O0‘5> + 00Lb*SEC/IN 

5.7000P-01LB-IN-SEC2 

I T = 
PHI= 0. 

2. 1600^+01lB-IN-SEC2 

oooop+oodegrees 

Rla 

2 . 00000 + 00 I NC h 

R2 = 

2 • oooo^ + oo inch 


lz 

XL 

YL 

P XL 

PYL 

SPEED 

-15.0 

1 .3261 P-02 

1.86809-02 

7,16 

11.04 

40.00 

-15.0 

1.42^7^-02 

2.03479-02 

7.60 

12.19 

41.00 

-15.0 

1 .53160-02 

2.22129-02 

8.12 

13.65 

42.00 

-15.0 

1 .64*10-02 

2.43049-02 

8.71 

15.53 

43.00 

-15.0 

1 ,77570-02 

2.66389-02 

9.42 

18,00 

44.00 

-15.0 

1.91629-02 

2.91829-02 

10,26 

21.28 

45.00 

-15.0 

2,07169-02 

3,17979-02 

11.30 

25.65 

46.00 

-15.0 

2,24499-02 

3,41209-02 

12.58 

31.28 

47.00 

-15.0 

2,43819-02 

3.55119-02 

14.21 

38,02 

48,00 

-15.0 

2.65409-02 

3.53119-02 

16.29 

44.95 

49,00 

-15.0 

2,69389-02 

3.35009-02 

19.02 

50.47 

50.00 

-15.0 

3.15279-02 

3.09339-02 

22.66 

53.21 

51,00 

-15.0 

3.41169-02 

2.86549-02 

27.49 

52.95 

52.00 

-15.0 

3,62469-02 

2.72409-02 

33.69 

50.50 

53.00 

-15.0 

3,71769-02 

2.67709-02 

41.00 

47,05 

54,00 

-15.0 

3.62579-02 

2.70889-02 

48.33 

43.49 

55.00 

-15.0 

3,36549-02 

2.80119-02 

53.96 

40,28 

56.00 

-15.0 

3,03979-02 

2.94039-02 

56,54 

37.60 

57.00 

-15.0 

2,75669-02 

3.11639-02 

55.85 

35.49 

58.00 

-15.0 

2.57149-02 

3.32189-02 

52.72 

33.94 

59.00 

-15.0 

2.49069-02 

3.55189-02 

46.38 

32,86 

60.00 

-15.0 

2.49R09-02 

3.80339-02 

43.90 

32.18 

61.00 

-15.0 

2.57079-02 

4.07519-02 

39.68 

31.84 

62.00 

-15.0 

2 . 69019-02 

4.36719-02 

36.56 

31.78 

63.00 

-15.0 

2.84279-02 

4.67979-02 

33.93 

31.96 

64.00 

-15.0 

3.02009-02 

5.01399-02 

31.92 

32.35 

65.00 

-15.0 

3,21689-02 

5.37139-02 

30.41 

32.94 

66.00 

-15.0 

3,43029-02 

5.75339-02 

29.31 

33.71 

67.00 

-15.0 

3.65909-02 

6.16199-02 

26.54 

34.66 

68.00 

-15.0 

3.90289-02 

6.59909-02 

28.04 

35.79 

69.00 

-15.0 

4.16189-02 

7.06669-02 

27.75 

37.09 

70.00 

-15.0 

4,43699-02 

7.56659-02 

27.65 

38.58 

71.00 

-15.0 

4,72949-02 

8.10059-02 

27.70 

40.26 

72.00 

-15.0 

5.04089-02 

8.66979-02 

27.90 

42.14 

73.00 

-15.0 

5,37329-02 

9,27479-02 

28,21 

44.23 

74,00 

-15.0 

5.72699-02 

9.91519-02 

28.65 

46.56 

75.00 

-15.0 

6.11089-02 

1.05899-01 

29.20 

49,13 

76.00 

-15.0 

6 .5222.9-02 

1.12919-01 

29.86 

51.96 

77.00 

-15.0 

6.96719-02 

1.20179-01 

30.64 

55.06 

76.00 
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15.0 

7 . 44 O 9 P -02 

1 . 27540-01 

31.55 

58.44 

79.00 

15.0 

7 . 97550-02 

1 . 34900-01 

32.61 

62.09 

80.00 

15.0 

8 . 54880-02 

1 . 42070-01 

33,84 

66.01 

81.00 

15.0 

9 . 17470-02 

1 . 48840-01 

35.26 

70.16 

82.00 

15.0 

9 , 85720-02 

1 . 55000-01 

36.92 

74.52 

83.00 

15.0 

1 , 05990-01 

1 . 60310-01 

38.83 

79.03 

84,00 

15.0 

1 , 14000-01 

1 , 64600-01 

41.04 

83.63 

05.00 

15,0 

1 , 22 ^ 70-01 

1 . 67740-01 

43.56 

88.23 

06.00 

15.0 

1 . 31630-01 

1 . 69690-01 

46.42 

92.76 

87.00 

15.0 

1 , 41090-01 

1 . 70520-01 

49.62 

97.16 

86.00 

15.0 

1 . 50800-01 

1 . 70330-01 

53.16 

101,37 

69,00 

15.0 

1 , 60570-01 

1 . 69310-01 

57,03 

105.33 

90,00 

15.0 

1 , 70180-01 

1 , 67660-01 

61.22 

109,05 

91,00 

15.0 

1 . 79360-01 

1 . 65500-01 

65.70 

112.50 

92.00 

15,0 

1 , 87830-01 

1 , 63240-01 

70.43 

115.72 

93.00 

15.0 

1 , 95280-01 

1 . 60760-01 

75.35 

118,72 

94.00 

15.0 

2 , 01450-01 

1 , 58220-01 

80.42 

121.54 

95.00 

15.0 

2 , 06130-01 

1 . 55650-01 

85,54 

124,20 

96,00 

15,0 

2 . 09200-01 

1 . 53060-01 

90.66 

126.73 

97.00 

15.0 

2 , 10630-01 

1 . 50440-01 

95.70 

129,15 

96.00 

15.0 

2 . 10510-01 

1 . 47770-01 

100.58 

131.46 

99.00 

15.0 

2 , 09010-01 

1 . 45060-01 

105.26 

133,66 

100,00 

15.0 

2 . 06340-01 

1 . 42300-01 

109,69 

135.75 

101,00 

15.0 

2 , 02740-01 

1 . 39520-01 

113.65 

137.73 

102,00 

15,0 

1 , 98470-01 

1 . 36720-01 

117.73 

139,60 

103.00 

15,0 

1 , 93720-01 

1 . 33930-01 

121.32 

141,36 

104.00 

15.0 

1 , 00700-01 

1 . 31180-01 

124,62 

143.00 

105.00 

15.0 

1 , 03550-01 

1 . 28480-01 

127.67 

144.53 

106.00 

15.0 

1 . 78380-01 

1 . 25850-01 

130.46 

145.96 

107.00 

15.0 

1 . 73290-01 

1 . 23300-01 

133.02 

147.29 

106.00 

15,0 

1 . 68330-01 

1 , 20830-01 

135.37 

148,53 

109,00 

15.0 

1 . 63540-01 

1 . 18470-01 

137.52 

149.69 

110.00 

15.0 

1 . 58950-01 

1 . 16200-01 

139.50 

150.77 

111,00 

15.0 

1 , 54570-01 

1 . 14030-01 

141.33 

151.77 

112,00 

15.0 

1 , 50410-01 

1 . 11950-01 

143,00 

152.71 

113.00 

15.0 

1 . 46460-01 

1 . 09970-01 

144.55 

153.59 

114.00 

15,0 

1 . 42730-01 

1 . 08080-01 

145.96 

154,41 

115.00 

15,0 

1 , 39200-01 

1 . 06260-01 

147.31 

155.18 

116,00 

15.0 

1 . 35860-01 

1 . 04570-01 

14 o .54 

155.91 

117.00 

15.0 

L , 32710-01 

1 . 02930-01 

149.68 

156.59 

118.00 

15.0 

1 , 29740-01 

1 . 01370-01 

150.74 

157.23 

119,00 

15,0 

1 . 26930-01 

9 , 96870-02 

151.74 

157,04 

120.00 

15.0 

1 . 24270-01 

9 . 84700-02 

152.67 

158.42 

121,00 

15.0 

1 , 21760-01 

9 . 71170-02 

153,53 

158.96 

122.00 

15.0 

1 . 19380-01 

9 . 58250-02 

154,35 

159.47 

123.00 

15.0 

1 . 17130-01 

9 . 45910-02 

155.12 

159.96 

124.00 

15.0 

1 , 15000-01 

9 . 34110-02 

155.84 

160.42 

125.00 

15,0 

1 . 12970-01 

9 . 22830-02 

156.52 

160.87 

126.00 

15.0 

1 , 11050-01 

9 . 12030-02 

157.16 

161.29 

127.00 

15.0 

1 . 09230-01 

9 . 01690-02 

157.76 

161.69 

128,00 

15,0 

1 . 07500-01 

8 . 91790-02 

156.34 

162.07 

129,00 

15.0 

1 . 05850-01 

8 , 82290-02 

158,86 

162.43 

130.00 

15.0 

1 , 04280-01 

8 . 73170-02 

159.39 

162.78 

131,00 

15.0 

1 . 02780-01 

8 . 64420-02 

159.68 

163.12 

132.00 

15.0 

1 . 01350-01 

8 . 56020-02 

160.35 

163.44 

133.00 

15.0 

9 , 99870 - 0 ? 

8 . 47950-02 

160.79 

163.75 

134.00 

15.0 

9 , 06850-02 

8 . 40160-02 

161,22 

164.04 

135.00 

15.0 

9 . 74390-02 

8 . 32710-02 

161.62 

164.33 

136.00 

15,0 

9 , 62480-02 

8 . 25510-02 

162.01 

164.60 

137.00 

15.0 

9 . 51060-02 

8 . 18580-02 

162.37 

164.86 

138.00 


APPENDIX C 


LISTING AND SAMPLE OUTPUT OF COMPUTER PROGRAM ROTOR4M 


BEGIN 

COMMENT THIS PROGRAM EVALUATES DESIGN DATA PGR A FOUR OEGREt 
FREEDOM SYSTEM THAT SIMULATES A ROTOR ON GENERAL AnISOTRO p IC BRGS.' 
THt EQUATIONS SOLVED HAD BEEN LINEARIZED . NO ASSUMPTIONS WERE 
MADE ON THF FFARlNG CHARACTERISTICS . THE CROSS COUPLING TERMS ARE 
KEPI WITH PROPER SUBSCRIPTS AS USFO IN THE DERIVATION OF THE EQNS. 

THE PROGRAM REQUIRES THE FOLLOWING TO BE READ AS INPUT DATA: 
CARD 0 

SPEC-ALLfJWABLE percent ERROR ON SPEED 

C A K D 1 

1. WO- INITIAL SPEED (RPS) 

2. ON- INCREMENT In SPEED (RPS) 

3. WM- FINAL SPEFD CRPS) 

CARD 2 

1. L- LENGTH BETN BRGS CINCH) 

2. LI- 01 ST FROM 1ST BRG TO MASS CENTLR CINCH) 

3 . L?“ DI ST FROM 2ND BRG TO MASS CENTER CINCH) 

4. W- ROTOR WEIGHT (LBS) 

5. IP- POLAR M.I. (LB-IN-SEC?) 

6. IT-TRANSVERSE M.I. OF ROTOR ABOUT MASS CENTER (LB-IN -SEC2) 
CARu 3 

1. WM1-FIRST UNBALANCE WEIGHT (LBS) 

2. WM2- SECONO UNBALANCE WEIGHT CLBS) 

3. HI- DIST FROM 1ST BRG TO 1ST UNBALANCE (INCH) 

A. H2- DIST FROM 1ST BRG TO ? N D UNBALANCE CINCH) 

5. PHI- PHASE ANGLES BETn UNBALANCE PLANES 

6. Rl- RADIUS OF 1ST UNBALANCE LOCATION 

7. R2- RADIUS OF 2ND UNBALANCE LOCATION 

CARD A 

1. P- NO. OF PLACES OTHER THAN THE BRG LOCATIONS WHERE 
DISPLACEMENTS ARE TO RE MEASURED 

2. LZ1- DIST FRijM 1ST BRG TU 1ST PROBE CINCH) 

3. LZ?- DIST FROM 1ST BRG TO 2ND PROBE CINCH) 

CARD 5 

1. K 1 X - 1ST BRG STIFFNESS IN X DIRECTION CLR/lN) 

2. K2Y- 2ND BRG STIFFNESS IN X DIRECTION CLB/IN) 

3. K 1 Y- 1ST BRG STIFFNESS IN Y DIRECTION CLB/Iim) 

A. K?Y- 2ND BRG STIFFNESS IN Y D I R E C T I ON C LB / I N ) 

CARD 6 

1. C1X-1ST BRG DAMPING COEFF In X D I RECT I ON ( LB . SEC / I N ) 

2. C2X- 2ND BRG DAMPING COEFF IN X DIRECTION CLB. SEC/lN) 

3. C1Y-1ST BPG DAMPING COEFF IN Y DIRECTION CLB.SEC/IN) 

A. C?Y- 2ND BRG DAMPING COEFF IN Y DIRECTION CLB.SEC/IN) 

CARD 7 

1. D1X- CROSS criUPLING DAMPING COEFF CLB.SEC/IN) 

2. D 2 X - CROSS COUPLING DAMPING COEFF (LR.SEC/lN) 

3. Dl Y- CROSS COUPLING DAMPING COEFF CLR.SFC/1N) 

A. 02 Y- CROSS COUPLING DAMPING COEFF ClB.SEC/IN) 

CARD 8 

1. R 1 X - CRUSS COUPLING iTIFhNEsS ClB/IN) 

2. R2X- CROSS COUPLING STIFFNESS CLB/lNl 

3. R 1 Y - CROSS COUPLING STIFFNESS CLB/IN) 

4. R2Y- CRUSS COUPLING STIFFNESS CLB/IN) 

THE HEADING PRINT OUT OF THE INPUT DATA ARE AS FOLLOWS : 

CARD 9 
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I 


CONTROL-IDENTIFIER CONTROLLING THE SYMMETRY OF BEARING 
L1NL1 L»L1*L2*H1 

LINE2 H?*W»WM1*RM? 

L i N c. 3 KIX*K2 x*K1Y,K2Y 

LINE4 C1X*C2X*C1Y*C2Y 

L I N fc. 5 R1X*H2X*RIY,R2Y 

UIWE6 D1X* 02X*D) Y.D2Y 

LINL7 IP*IT*R1*R2 

LINES PHI ) 

comment 

THIS PROGRAM FINOS THE CRITICAL SPEED AND THE CORRESPONDING 
AMPLITUDES ALONG WITH THE PHASE ANGLES * FORCE TRANSMITTED ETC. 

IN ORDER TO GET SENSIBLE RESULTS WHICH MAY KEEP THE ALLOWABLE 
PERCENT ERROR WITHIN 1 % ON THE CRITICAL SPEED THUS FOUND * THE DAMPING 
CHArvACTtRI STICS OF THt BEARING SHOULD NOT BE TOO SMALL • 

THE OUTPUT DATA ARE AS FOLLOWS! 

:OL 1 ! SPEED (RPS) 

:0L2! COORDINATE 

;ol3! amplitude (ini 

COLA! PHASE ANGLE OF THE AMPLITUDE WRT UNBALANCE 
CULb ! MAJOR SEMI 4 X I S / A MPL I TUDE OF COORDINATE (DIM) 

CULb! MINOR SEMI AX IS/ AMPI. [TUDE OF COORDINATE (DIM) 

CUL/: tLLlPSE ANGLE UF MAJOR SEMI AXIS WITH X AXIS 
COLS! BEARING LOCATION OF MAXIMUM FORCE TRANSMITTED 

col V i o ax force transmitted 

COLIO: PHASE ANGLE OF MAX FORCE WRI UNBALANCE FORCE 

COLU! PERCENT cylindrical MODE 

IP CONTROLS THEN rE ARE DEALING WITH A SYMMETRIC BEARING CASE J 

REAL T* IOrlMF, PTIME J 

HEAL WN * WO , DW . NM * L * H * L2 * W * IP * IT * WM 1 . WN12 * HI > 

H2 . PH , R 1 , R2 . K 1 X , !<2X * K l Y . K2 Y * C1X > C2X * ClY * C2Y , 

D 1 X * D2X . DiY , D2Y * RIX * R2X * R1Y » R2Y * G * PI * M, OM 1 * 0M2 > 

KPP * RTT > HP . < T > LI 1 > L22 > ROl . R02 . PHI * EPS * RAD * 

K 1 x X • K2 < X • K1YY « ><2 Y Y * CiXX . C2XX * CtYY * C2YY * RlXX > R2XX > 

R1YY . R2YY * |)tXX * D 2 X X . [) 1 Y Y * D2YY * PN1 * PD1 » SI * PN? » P D2 • 


SIT * BP * 

CC . DO , 

EE 

, PXl * PX2 * 

PY1 

* PY2 * P A 1 * 

PA? 

9 

p F< f PF*Y > 

E > SPEC 

» 

AX * B X * AY * 

H Y > 

THETA * MA * 

Ml • 


p t k l e n r ; 

I N T t G £ R 

I > K 1 f J p K p 

IM, 

NQL*PP*CONTROL» 

lun; 




REAL ARRAY 

OMEGA , 

S 

. S S * X X 1 * XX 

? > 

Y Y 1 * YY2 * 




PFX2 * P F Y 2 t 0 s 5 0 0 ] * LZIOiA) , 

XL * YL > PXL . PYL C 0 ! SOD* D ! A ] *A[0!B.0!8] . C * X C 0 1 8 ] * 

PFX1 * PFYtCOSSOOI. C V C D ! 1 2 J > 4 A [ 0 M 2* 0 ! bOO ] » PA* FP A * A A X » ABX > 

A A Y * ARY * FA » C OOR [ 0 i 1 2 I J 

LABEL LDO . FINIS > F: l * E2 » L.DJ1 , DO I TAG IN * 

BOOLEAN RSr ) 

FORMAT HEAD! ( 6 ( 2 ( 3 9 ("*”))*/) . 

2 A (•**") , X AO > X 3 l 3( "*”)* / » 

24("*")* XI * "DESIGN DATA FOR A SINGLE MASS ROTOR WITH FLEXIBLF SUPPORT 
AND DAMPING” *X1 • 23 ("*")*/• 6 ( 2 ( 59 ("*")) * /)} J 

FORMAT HE Au2(2(2(S9( ”*”))*/)* 

Xb * "L = "*E11.A * "INCH" . X 1 2 * ”L1=" * EU.A *”INCH” * X12 * ”L2 = " * 
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Ell. 4 . "INCH" , XI? . " H 1 = " » Ell.^i . "INCH" . / . 

X4 . "H2 = " , Ell. 4 , "INCH" . Xi3 . "Wa" . Ell. 4 , "LB” . Xl3 . ”WMi=" . 

Ell. 4 , "LB" . X 1 3 > "wH2-" . til. 4 ."LB" . / . 

X 3 . "Kix = " . Eir.4 > "LB /IN" . X10 . "K2X = " , Ell. 4 ."LB/IN" . XIO . 

" K 1 Y = " » Ell. 4 » "LB/IN" . XIO . ”K2Y = ” . Ell. 4 . "LB/IN" . / , 

X 3 . ”C1X = " . El 1.4 .“"LB. SEC/IN" . X6 . "C2X=" . Ell. 4 . "LB. SEC/IN" . 

X 6 » " C 1 Y a ” » Ell. 4 . "LB.BEC/IN” .X6 » "C2Y = " . Ell. 4 ."LB. SEC/IN" ./. 
X3 . "R 1 X = " , Ell. 4 . "LR/IN" . XIO , "R?X = ” . Ell. 4 . "LB/IN” , XIO . 
"rtlY = " . Ell. 4 . "LB/IN" , XIO . " R 2 Y a " . Ell. 4 » "LB/IN" . / . 

X3 ”D1X'=" ", Ell. 4 . "LB. SEC/IN" . X6 . "02Xa" . Ell. 4 . "LB. SEC/IN" , 

Xt> . " U 1 Y a " . Ell. 4 . "LB. SEC/IN" . X6 . "D2Y = " . til. 4 . "LB . SEC/ IN" . / 

. X 4 * " I P = " . Ell. 4 . "LB-IN-SEC2" . X 6 . "IT = " . Ell. 4 . "LB-IN-SEC?" . 

X6 . ”R 1 s" . Ell. 4 . "INCH" . XI? . "R2=" . Ell. 4. "INCH" »/ , 

X 30 . " P H I = " . Ell. 4 > "DEGREES" • / . 

2C2C59C"* "))./)) } 

FORMAT OUT 1 L Xl . " S 13 E E D " , X3 . "COORDINATE” . X2 . "AMPLITUDE" , X? > 
"PHASE" » X 2 . "MAJOR SEMI" . X? , "MINOR SEMI" . X2 . "ELLIPSE" . X? » 
"BEARING" . X3 . "BEARING" . X2 . "FORCE PHASE" . X4 . "PERCENT” » 

/ > "REV/StC" . X 1 6 . "CINJ" > X5 . "ANGLE" . X?."AXIS C D I M ) " . X ?. " AX I S 

(DIM)". 

X3. "ANGLE" . X 3 . "LOCATION" . X3 ."FORCE" . X6 » "ANGLE" . X5 . 
"CYLINDRICAL" ) 1 ■ 


FORMAT 

OU T 2 A 

C F 7 . 

1 

9 

X6 

, "X" 

9 11 9 X 5 9 

E 1 0 ♦ 

3 , XI 

* F 6 

• 1 9 

XA , 


F5.2 

9 x7 9 

F5.2 

9 

X 5 

9 

F6 . 1 , 

X6 j* 12 9 

X 4 , 

E 1 0 . 3 , 

X 2 

9 F 6 

• 1 9 

X 7 . 

F 6 * 1 

) ; 













FORMAT 

GUT 2 

C F 7 . 

1 

9 

Xo 

, ”Y' f 

9 n ' *5 9 

E10 . 

3 p XI 

* F 6 

• 1 9 

XA , 


F 5 • 2 

> X 7 9 

F5.2 

9 

X 5 

9 

F6 • 1 , 

X6 9 12 9 

X4 , 

El 0.3 , 

X2 

9 F 6 

. 1 ^ 

X 7 * 

F5. 1 

) ? 













FORMAT 

0UT2C 

C F7. 

1 

9 

X 3 

, ”X(" 

F5.1 

, ft yf 

9 X 2 9 

E10 

• 3 9 

XI » 


F6.1 

, X4 , 

F5 , 2 

9 

X 7 

9 

FS.2 > 

X5 > F 6 . 1 

9 X 6 

9 12 > 

XA , 

E10 

.3 , 


X2 > 

F 6 • 1 > 

X 7 , 

F 6 

.1 

) 

• 

f 








FORMAT 

OUT 2 0 

( F7 . 

1 

9 

X 3 

. "YC" 

, rs.i 


> X 2 , 

E 1 0 

.3 # 

XI / 


F& . 1 

* X 4 > 

F5 % 2 

• 

X 7 

9 

F5.2 . 

X 5 > F6.1 

> X 6 

> 12 , 

X 4 , 

E10 

.3 9 


X 2 * 

F 6 • 1 > 

X7 , 

F 6 

. 1 

) 

• 

f 









REAL PROCEDURE AnGLECPN.bD) > 

VALUE PN . PD ! RtAL PN. PD > 

BEGIN 

REAL B . PI ? 

LABEL LI . L2 . L3 . L4 J 
PI * 3.141S9 i 

IF PN> 0 AND PD=0 THEN GO TO LI i 

IF P N < 0 AND Pl) = 0 THEN GO TO L? i 
IF PN = 0 AND PD = 0 THEN GO TO L 3 . 

6 <• ARCTANC ABSCPN/PI.))) > 

IF PN<0 AND PD>0 THEN S * 2* PI - B I 

IF PN >0 AND PD<0 THEN B<- PI - B 

IF PN<0 AND P0<0 THEN B«- PI + B J 

GU TO L4 » 

LI! B4-PI/? } 

GO TO L 4 ; 

L2 ! B *■ (3xPl) /? .! 

GU TO L 4 l 
L 3 ! B<-0 f 

L4J AnGLE<-B .* 

END OF PROCEDURE i 
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PROCEDURE FORCECC , K.0.R.C1, Si .C2> S2,WW,F,PFX,PFY) i 
VALUE C.K.D.R. Cl, SI , C2 , S2 , WW ; 

REAL C » K , 0 » R .» Cl , SI » C 2 , S2 » WW » F , PFX > PFY 5 

COMMENT THIS PROCEDURE CALCULATES THF FORCE OR MOMENT 
PRODUCED BY THE REACTIONS WHERE 
C = DAMPING COEFF D= CROSS COUPLING DAMPING 
K = STIFFNESS CflEFF R= CROSS COUPLING STIFFNESS 
THE FORCE CALCULATED IS IN THE DIRECTION UF XI WHERE 
X 1 = Cl COS(wWT) + SI SINCWWTV .WHFRt WWsROTOR SPEED ! N RAD/SEC 
OIRECTIUN NORMAL TO XI IS X2 WHERF. 

X2- C2 COS (WWT) + S2 SINCWWT) 

F=F COSCWWT-PH)sA COS(WWT) + B SINCwWT) > 

BEGIN 

REAL A, R } 

A *■ C x WW x SI + K x Cl + D x WW * S2 + Rx C2 ) 
a *-NW x c x Cl + K x SI - WW x D x C2 + R x S2 » 

F«-3(iRT(AxA + Hx6) i 

PFX «• A.mGLE ( B , A) ; PFY «■ ANGLE (-A , B ) J 
END OF PROCEDURE FORCE ) 

PROCEDURE ARBITRARYDISPI.ACEMENT (LZ , L , X , XL » YL , P XL , PYL ) 
v alul lz » l ; 

real LZ , L . XL . Y|. , P XL , PYL. J 

REAL ARRAY XI 01 r 

BEGIN 

COMMENT THIS PROCEDURE CALCULATES THE X AND Y DISPLACEMENTS AT 
ANY POINT MEASURED FhOM THE FIRST BRG . XL IS SHAFT ABSOLUTE 
X UISPLACFNENT AND Pxl. IS I HE PHASE ANGLE f 
REal Z f 
Z <- LZ/L ! 

AX *■ Zx XCT] + (l " 7 ) x X [ 1 ] } 

ax <■ Zx XC4] + Cl " Z ) x XC2] J 
AC <• 7 x X [ 7 ] + C 1 - Z ) x XTS] • 

c3 Y «-ZxXC6] + C 1 ” Z ) x x C (S ] i 
XL <• SuRT ( A X x AX + BXx BX ) > 

YL<-SORTCAYxAY + BYxBY) ! 

PXL «■ ANGLE (BX » AX ) i 
PYL «■ ANGLE C - AY » BY ) > 

End OF PROCEDURE ARB I TR A R YD I SPL AC EME N T i 

PROCEDURE PERCYL ( A, B, C »0» PERCENT 1 1 
VALUE A.8.C.D; 

REAL A, R.C.D, PERCENT f 

BEGIN 

RFAL X X 1 , X X 2 , U 1 
XXI* SORT (AxA + PxB) f 
XX2* SORTCCxC+QxD) S 
U*SORT(( A+C)*2 + (B + I>)*2) > 

IF XX 1 >XX2 THEN 
PERCEn r«-U/C2xxxi)xi00 
ELSE 

PERCENT«-U/(?XXX2)X100 > 

End of PROCEDURE PERCYI. f 

PROCEDURE ELLIPSEC A.R.C.O.MA.MI .THETA) J 



value a.s.c.o; 

REAL a.b.c.d.ma.mi.theta; 

BEGIN 

real u. v.w; 

LABEL FIN ; 

Ii«-AxA + BxB + CxC + DxDJ 
V<-4x(AxD“BxC)*2» 

W *■ SORT CAftS(IJxU-V) ) /2 f 
MA «- SQRTC ABSCU/2 + W) ) J 
MI «- SORT ( APS(U/2"W ) ) ! 

IF CMA-MI )/MA<,01 THEN 

BEGIN 

T HE T A«-0 J GD Tn FIN f 

End 

ELSE 

begin 

U«-2x( AxC + BxD) > 

V>AxA+8xe-CxC-Oxo; 

THLTA«-ANGLE (U.V)x90/3, 14159! 

tN Or 

fin; end of procedure ellipse ; 

PROCEDURE SULVECN»A.C»RSW,E.K1»EP$.X.E1,E2);VALUE N.RSW.E.Kl.t p S» INTEGER 
'NVMJREAL E.EPSIBDOLEAN RSW5REAL array ACO.O] .C.xroiILABEL E 1 .E 2 JREGIN 

integer i.j.k.ji.k2.l;real big. temp. diag. norm. q;own integer array fco:ni 
IREAL array D[0»N];0WN real ARRAY BCOU.OIN] SLABEL S1.S2.S3,S4.SS>S6.REP 
. ST .Sa,S9. IT 1 .SlO.Sl 1 .S12.S1 3.S14.S15.EXIT JSl ! TF RSw THEN Gil TO REP. FOR 
K-1STEP 1UNTIL N DO FOR JMSTEP 1UNTIL N DO 0 C T . J ] <■ A [ I , J 1 ; $2 : FOR IMSTEP 
UNTIL N DO BEGIN l«-I“ 1JF0R J*l STt° UNTIL N DO BEGIN a<-0;FQR K*1STEP 

until l do CM-et j.k ixbek. i ]+ o;bc j. n<-BC j. n-Q eno.sbig«-o;k2«-i;s3sfor k<-i 

STEP UNTIL N DO BEGIN IF AB S C B [ K . I 1 ) > 4 I G THEN BEGIn B I G<- A B S C 8 C K . I ] ) ? K?<- 
K End E N 0 > S 4 ! IF BIG<EPS THEN GO TO £ 1. J F C I ] «-K2 5 I F K2 / I THEN S5;F0R KMSTE 
P UNTIL N DO REGIN TE MP* A [ K2 . K ] } A C K? . K ] «- A [ I , K ] i A [ I » K ] MEMP i TEMP <-B C K2. K ] 
.’BiK?.K]<-B[ I.K] > B[ I,K]«-TEMP» END! OIAG«-B[ I . I ]; SB! FOR JM + 1STEP 1UNTII. N 00 
BEGIN G<-0;F0R KMSTEP UNTIL L on a«-BtI>K]xB[K..J:i+a;B[I>J]«-CB[I..Jl-Q)/D 
I AG End ENO;REP!FOR IMSTEP UNTIL N DO BEGIN TEMP<-CCFCI]]?C[FCI]]<-C[n; 
OIIRCtl ]MEMP END.'FOR IMSTEP until N Du BEGIN LMM !Q + 0fS7t For kmste 
P UNTIL L DO 0«-Bt I .KlxDtKI +0; DC IlfCD.C n-ai/Btl. IlEND; sfi! FOR I + N STEP-1U 

ntil i dd begin $><-o;for kmmstep until n do q«-bc i .kjxxu i+o; xc jjhm n-o 

END J S9 ! I F E = OTHEN GO TO EX I T i J 1 *0 f 1 T L ! I F J1>K1 THEN GO TO E2 J N0RM«-0 ! FOR 
IMSTEP 1UNTIL N DO BEGIN QMUMM SS10SF0R KMSTEP UNTIL N 00 Q<-ACI»K 

]xX[K]+a;Dm«-ci n-a ssi i !norm«-abscdl n )+nijrm;q«-o;si2! for kmstep until 

L Du 0 «■ b [ I.K]xD[K]+a.D[ I I «■ ( 0 [ I ]~Q)/B[ I. I IEND.FQR I«-N STEP-IUNTIL IDO BFG 
IN Q«-0;513!F0R KMMSTEP 1UNTIL N 90 Q«-B Cl . K ] xD C K I +Q i X C I] «■ X [ 11 +D C II -0 EN 
D;S14! JK-J1 + 15S15! IF Nx£<NORM THEN GO TO 1 T 1 S E X I T t END ; 

procedure icalculateci.omeg.im.cgoi; 
value omeg. r. im.cgo; 

REAL OMFG; 

integer i.im.cgo; 

begin 

comment this procedure calculates the amplitudes at brg. locations 
until the max amplitude is reached at certain spefo ; 
omegac h«-omeg; 

S[ 1 ] «■ 2 X PI x omega [I ] s 
SS [ I ] <■ S [ J I X s t I ] 
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BEGIN 

REAL XXXX } 


At 1 

. 1 3 

<- 

K 1 X X - L22 x 

ss CI3 

9 




AC 1 

.2] 

<- 

ci xx x sen - ; 






AC 1 

#3] 

<- 

K 2 X X - L 1 1 x 

ssen 

• 

9 




Atl 

,4] 

4- 

C2xx x sen 

9 





AC 1 

.5} 

4- 

pi yy 






AC 1 

.63 

4- 

D1YY x sen 

i 





AC 1 


<- 

P? YY ) 






Atl 

>8] 

* 

D2YY x SCI! 

9 





AC* 

. 1 ] 

4- 

- cixx x sen 

9 





AC2 

.23 

4* 

K 1 X X - U2 2 x 

ssen 

9 




AC* 

.3] 

4- 

- C2xx x sen 

9 





A C 2 


4- 

K2XX - L 1 1 x 

ssen 

; 




A C 2 

.5] 

4- 

- D1 YY x SCI] 

j 





A C 2 

.6] 

4* 

R1 YY i 






AC2 

.73 

4* 

- 02YY x SCI] 

• 

f 





A t 2 

.8] 

4* 

R2YY J 






AC 3 

. 1 3 

4* 

ft 1 X x ; 






AC 3 

.2] 

4- 

dixx x sen 

} 





A C 3 

.33 

4- 

R 2 x X ; 






At 3 

.4 ] 

4- 

n?xx x sen 






A C 3 

.5] 

4- 

K1YY - L22 X 

SS[ I ] 

; 




A [ 3 

.63 

4- 

ciyy x sen 

9 





AC i, 71 

4- 

K 2 Y Y - L 11 X 

ssen 

; 




A C 3 

<33 

4- 

c 2 y y x sen 

9 

• 





A C 4 

1 3 

4- 

- o i x x x sen 

f 





A C 4 

23 

4" 

R 1 XX > 






A C 4 

3] 

4* 

- u ? x x x sen 

• 

t 





A C 4 

4] 

4* 

R2XX i 






A C 4 

5] 

4- 

- CIYY X sen 

• 





A C 4 

6} 

4- 

K 1 YY - L22 xSSCT] 

t 

y 




A C 4 

73 

* 

- c ? y y x sen 

9 





A C 4 

8] 

«- 

K2YY - 111 x 

ssen 

; 




A C 5 

1 3 

4* 

RT X ss [ n - 

ftl XX x 

Lll 


/ 


AC3 

2 3 

4- 

- C 1 X X X L ) 1 

x sen 





AC5 

33 

4- 

- KT x 3S C IT 

+ < 2 X X 

x L 

22 

! 

; 

A C 5 

4] 

4- 

C2XX x L22 x 

see] 

• 

9 




A L ^ 

5] 

4- 

-R1YY x L 1 1 

f 





AC 5 

63 

4- 

- RP x ssen 

- Lll 

x sen 

xntyy ; 

AtD 

73 

4- 

R2YY x 1.22 ; 






A l 5 

83 

4- 

R D x ssen + 

i > 2 Y Y x 

L 2? 

X 

sen ; 

A C 6 

1 3 

4- 

CIXX x L 1 1 x 

sen 





A C 6 

2] 

4- 

r t x ssen - 

K1 XX x 

LU 

• 

9 



ACo 

33 

4- 

- C2XX X l?2 

x SCI] 

9 




A C 6 

4] 

4- 

- rt x ssen 

+ K2XX 

x L 22 


9 

A t O 

5} 

4- 

rp x ssen + 

01 YY x 

LU 

X 

sm ; 

A C 6 

6] 

4- 

-ft 1 Y Y x L 1 1 

9 





At 6 

n 

4- 

- rp x ssen 

- 02YY 

X L 2? 

X 

SCI ) 

A C 6 

8] 

4- 

R?YY x L2? ; 






At r 

13 

4- 

- ft 1 X X x L 1 1 

} 





AC 7 

2 3 

4- 

rp x ssen - 

D1 XX x 

Lll 

X 

sen * 

At 7 

33 

4- 

R2 XX x L22 i 






AC 7 

43 

4- ' 

-«p x ssen + » 2 xx x 

L 2* 

x sen 

AC 7 

53 

4- 

rt x ssen - 

K1 YY x 

LU 


? 


AC7 

6] 

4- 

- CIYY X LI 1 

x sen 

« 






A[7,7] <- -RT X S S [ 13 + K 2 Y Y x L22 i 

A C 7 > 8 ] «- C2YY x 122 x SCI] J 

A[8>1] «■ - RP x SStn + Q1XX x Lll *SCI) ’ 

A [ 8* 2 ] * -RlXX x Lll I 

A [ 6 * 3 ] <- RP x SSII] - 02XX X L 22 x S T I D > 

A I 8 * 4 ] <- R2XX x L22 > 

AC8>5] * C1YY x Lll x SCI] J 
A [ 8 > 6 ] <• RT x SSCI] - K1YY x Lll ) 

A [ 8 » 7 ] «- - C2YY x L22 x SCI J J 

AC8,8] t- - RT x SSCI] + K2YY x L 22 } 

CC1] <■ ( DM 1 x SSCI] x Rl ) / M + C DM2 x SSCI] x R2 x COSCPHI))/ M 

C C 2 J <• - C DM2 x SSCI] x R2 x SIN (PHI)) / M ! 

CCS] «- ( DM2 x SSC I ] x R2 x SIN ( PHI ) ) / M S 

CCA] *■ (DM1 x SSCI] x Rl ) / M + ( DM2 x SSCI] x R2 x COSCPHI))/ M J 

CCS) «- ( DM 1 x ROl x SSCI] x Rl + DM2 x RD2 x sSCI]xR2 x COS(PHI)) / 

CMx L ) 5 

C C 6 J <•- (DM2 X SSCI] X k<}2 x R2 x SIN ( PMj )) / (Mx L) i 

C C 7 ) <• (DM2 x SSCI] x R02 x k 2 x SIN ( PHI )) / (Mx L) I 

C C 8 ) <• ( DM 1 x ROl x SSC I 1 x Rl + r m2 x R02 x SSCI]xk? x COSCPHI)) / 

CMx L ) J 

END > 

SOLVE C N » A » C r RSW , E , K 1 , EPS » * > FI » C2 ) J 

8B <- XC 1 1 x XC 1 ) + X C 2 1 x X t 2 ] r 

XXI C I ] «• SORT CBB) » 

CC «• X C 3 ] x X C 3 ] + X C A J x XCAJ I 
XX2 [ I ] «■ SORT ( CC ) ) 

DO *■ XCS1 x X[5] + X C 6 J x XC6J 
YY1CI] «■ SORT C DD ) > 

-:e * x c 7 1 x x c 7 ] + x r 8 ] x xcsj ; 

CY2CI] «■ SORT C EE ) J 
IF IM>4 T Ht N 

FOR J<-1 STFP 1 UNTIL P DO 
BEGIN 

ARBITRARYDISPL ACEMENT C l.ZCJ] » L > X > XLCI,J] , YLCI>J] > PXLTI»J] , 

pylci,ji ) ) 

AAC?xj+3» I ]<-XL CI/J)F 
AAL2 xj + A, I 3 «- Y L C I , J J } 

IE C GO= 1 THEN 

BEGIN 

AAXC2xJ + 3]«-AAXC2xJ + AT«-AX; 

ARxC2xj + 3]«-ABXC?xJ + A]«-BX; 

AAYC2xj + 3]<-AAY[2xJ + A]«-AY; 

ABYC2xj + 3J«-APYC2xJ + a ]«-BY> 

PA[?xj + 3]«-PXLC I, J1XRADJ 
PAC2xj + A]«-PYLCI»J]xRAD; 

END) 

end; 

A A C 1 > mxxi c I ] 5 

AAC2, I ]<-YYl [I ] ; 

A A [ 3# IIM-XX2CI ] ; 

A A [ 4> j J <- Y Y 2 [ 1 J) 

END OF PROCEDURE ICALC'JLaTE? 

PROCEDURE HELPME C H » 0 »IM , I ) ) 

VALUE H , 0 , IM > I ; 

INTEGER H , Q . IM , I ; 
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HF GIN 

INTEGER LQC , J ; 

IE H = 1 THEN 

PERC YL( X C l 3 ,xC2 3, XC 3 3, XC4 3 ,PE RCEnT) 

ELSE 

PERCYLCXC53 ,XC6),XC73,XC8), PE RCENT) r 
IF I M= 1 OR I M = 2 THEN 

ELLIPSE C X E 1 3 , X [ 2 3 , X C I? 3 , XC6) , M A , MI , THETA 3 

EL SE 

IF IM=3 DR I M= A THEN 

ELLIPSEC X C 3 3 » XC4) , XC7), X[83 , M A , MI , THETA ) 

ELSE - 

ELLIPSE ( AAXC IM] , ABX C IM3 » AAYC IM) , ABY[ IM3 ,MA, MI, THETA); 

IF IM < 4 THEN 
BEGIN 

LOOCOORC IM3 I 

COMMENT FOLLOWING prints the RESULTS in X DIRECTION AT BEARING* 

IF H = 1 THEN 

WRITE C LP , OUTPA , UMEGAC13 » COORCIM] . AACIM, I], P A f IM 3 , M A/ A A C I M 
, I3,MI/AAT I M , 13, THETA, LUC,FAt IM],F°AriM]»PERCFNT) 

ELSE 

COMMENT FOLLOWING PRINTS THE RESULTS IN Y DIRECTION AT BEARING; 

WRITE! L D , OU T P 0 > OMEGA t I 3 , CDQRU«3 » AACIM, 13, PA [ I M 3 ,MA/ AAE I M 
, I 3 ,MI/AAC IM, I ] , THETA .LOC.FAC IM ] .FPAC IM 3 .PERCENT); 

END 

ELSE 

BEGIN 

IE E A [ <si 3 > E A [ H 3 THEN 

BEG 3 N 

L 0 C <- C 0 U R [ 0 3 5 

COMMENT FOLLOWING PRINTS THE KFSUITS IN X DIRECTION AT ARBITRARY LOC i 
IE H= 1 THEN 

WRITE C LP , 0UT2C , ilMEGAC 1 3 . COORTIM] , AACIM ,13, 

PAL IM3 ,MA/AAClM,tj,Ml/AAIlM, 13, THETA, LOC. EA[0J,FPAC01, PERCENT) 

ELSE 

COMMENT FOLLOWING PRINTS THE RESULTS Tn Y DIRECTION AT ARBITRARY LOC ; 
WRITE C LP , 0UT20 , OmEGALII , COORCIM] , AACIM ,13, 

PALI M3 , MA/AACIM, 13, Ml/AACIM, 13, THETA, LOC, FACQ3, FPAC G3. PERCENT) ) 

END 

ELSE 

BEGIN 

loc«-coor[hj ; 

COMMENT FOLLOWING PRINTS THE RESULTS IN X DIRECTION AT ARBITRARY LOC f 
IE H = 1 THEN 

WRITE C LP , DUT2C , 0MEGALI3 , COORCIM) , AACIM , I 3 » 

PACIM3 .MA/AACIM, I], hl/AACTM, 13, THETA, LOC, EArH],F p ACH), PERCENT) 

ELSE 

COMMENT FOLLOWING PRINTS THE RESULTS IN Y DIRECTION AT ARBITRARY LOC f 
WRITE C LP , 0 U T 2 D , OMEGA Cl) , COORTIM) , AACIM »■ I 3 , 

PAC IM) , MA/AACIM, I], MI /AACIM, 13, THETA, LOC, FAEH],FPA[H], PERCENT) i 

End ; 

End; 

END OF PROCEDURE HF.LPME* 

PROCEDURE CALCULATE CI»UMEG»IM); 

value i,omeg,im; 
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REAL OMEG; 

INTEGER I f I M J 

BEGIN 

I CALCULATE ( I V'QMFG V I M»T) t 

Pxl «• ANGLE CXI?] , Xtl) ) f P X 2 «■ ANGLE CX[4] , X C 3 T ) } 

PY1> ANGLE "(- X [5] f XC63 ) > P Y 2 <- ANGLE C-XC73 , X[A] ) } 

IF ENTIERC IM/2)=IM/2 THEN 

begin 

COMMENT THIS CALCULATES THt PHaSF ANGLES ANO FORCES AT CRITICAL 
SPEED' In' Y DIRECTION ') 

PAt2]*(SI+PYl )xRADI 
PA14 3<-CS'I+PY? )xRAD; 

FORCECClY,KlY,DlX>RlX,Xt5],xr63,X[ 1 3 > X C 2 3 » S I - J3 , FA [23 , PFX, PF Y 1 1! I 3 3 » 
FORCE(C2Y,K2Y,D2X»R?X>XC73,Xr63^X[33/X[A3>SCl3^FACA3>PFX^PFY2ri3)J 
FPAC23KSI+PFY1 [ I 3 )xRAD; 

FPAt4']«-(SI+PFY?[l 3 3xRAD; 

HELPMF.C2*A, IM, 13; 

End else 

BLGIN 

COMMENT THIS CALCULATES THE PHASF ANGLES AND FORCES AT CRITICAL 
SPEED IN X DIRECTION ! 

PAt 1 3 «■ ( S 1 + PX 1 )xRAD; 
pa[33<-(SI + px2;xrad; 

FaRCECClX»KIX,DlY»RlY»Xri3#xr?]»Xr33»X[6]jSn3*FA[13#PFXirn#PFY}> 
FORCE(C2X»K2X>D2Y*R2Y»XC33,X[4J,X[7]»XE83»SCI3»FAC33»PFX2ri3»PFY3; 
F P A [ 1 3 «• ( S I +PFX 1 r I 3 )XRAD; 

FPAC3]*(SI+PFX?CI l)xRAD; 

HELPMEC 1 »3» IM» I)! 

end; 

ENU OF PROCEDURE CALCULATE; 

PROCEDURE FINOMAX ; 

BEGIN 

real inw ; 

INTEGER Pf J» S ; 

LABEL FNDOFM , 6ETITG00D , WRITEJT t GflGO, AGIN ; 

IF CONT ROL = D THEN LON*? ELSE LON*l ; 

FOR IMM STEP LON UNTIL NOL DO 

BEGIN 

IF C V [ I M 3 = 6 THEN GO TO ENOOFM ; 

IF AACIM,I3 > AA[IM,I-13 AND C V T I M 3 *• 3 THEN GO TO ENDOFM ; 

IF AACIM,I3 < AA[IM,I-13 AND C V E I M 3 = 3 THEN GO TO ENDOFM ; 

IF A A C I M , 1 3 < AA[IM,I-13 THEN GO TO GET I T GnnO i 

CVCIM] * CVEIM3 + 1 ; 

GO TO ENDOFM } 

GETITGOOD i 

C V L I M 3 * CVCIM 3 +1 i 

IF COMEGAC13 - OMEGACI-13) / OMEGAC 1 3 < SPEC THEN 

BLGIN 


p * I 



CVC IMT 


c v C I m i + i ; 

GO TO ' 

WRITEIT ; 

enu ; 



IDW <• 

DW 

/ 2 ; p * i ; 

GOGU S 



J * 2 

/ 

FOR S * If 3> 
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I 


BEGIN 

OMEGA C$] <- OMEGA [P-J] i 
AALIM,S] <• AACIM,P-J] •> 

J <- J-l } 

ENG) 

P > 2 i OMEGA C P 3 <• OMEGA CP-11 + TOW } 

ICALCIJLATE (P»0MEGArP1.IM,0)J 
AGIN J 

P «• P + \ ; IF P = A THEN 

BEGIN 

OMEGACP] «• OMEGA C P- 1 3 + IDW f 
ICALCULATE CP, OMEGACP], 10.0)1 

END) 

IF AACIM.P] < AA[IM,P-1] THEN 

BEGIN 

IE (OMEGACP]' - OMEGACP-1]) / OMEGACP] < SPEC THEN 

BEGIN 

CVCIM] <• CVCIM] + 1 ; 

GO TO WRITEIT ) 

END J 

I 0 w * IDW / 2 ; GO TO GOGO > 

END) 

GO TO AGIN } 

WR1TEIT : 

CALCULATE (P-1. OMEGA CP-1], IM) J 
PP«-0 ; FOR 5M STEP LON UNTIL NOL DO 
IF CV[S]=6 THEN PP<-PP + L0N ) 

IF PP > NOL THEN 

BEGIN 

WRITE C LP C OBI. ] .<//,"THE FOLLOWING VALUES ARF AT THE MAX. 
F7.1 , XI, "RPS”> , WM) } 

FOR IM <- 1,2, 3, 4 DO CALCULATE Cl, WM, IM ) J 

IM «• NOL i 

END ) 

ENuuFM s 
END) 

EN'> OF PROCEDURE FINOMAXJ 

IOTIME <- T 1 M E ( 3 ) ; 

PTIME <■ T I ME ( 2 ) ; 

G «■ 32.2 x 12 f 
WRITE C L P t 3 ] ) ) 

WRITE CLP . HEAD1) I 
WRITE (LPtPAGEJ) } 


READ 

C CR 

9 

/ > 

SPEC 

) > 







RE AO 

CCR , 

/ 

9 

W 0 9 


ow > 

wm ) ; 






LOO: 

Rt AO 

CCR 

9 / 

9 

L * 

Ll > L 2 

, w 

, IP 

9 

IT ) CF1NIS] 

READ 

CCR , 

/ 

9 

W M 1 

9 

WM2 

9 Hi 9 


H 2 9 

PH , 

R 1 

, R2 ) ; 

READ 

CCR , 

/ 

9 

P > 

FOR J<-1 STEP 


1 UNTIL P 

DU 

C L I C J ] ] ) 

READ 

CCR , 

/ 

9 

Kl> 

9 

K2X 

, K1Y 

9 

K2Y 

) ; 



READ 

CCR > 

/ 

9 

C IX 

9 

C 2x 

, ClY 

9 

C2Y 

) ; 



READ 

(CR , 

/ 

9 

01 X 

9 

D2 X 

, U1Y 

9 

D2 Y 

) 9 



READ 

CCR , 

/ 

9 

R1X 

9 

R2X 

, R1Y 

9 

R2Y 



f 


READ 

( 

CR 

j- / 

9 

CONTROL ) 

• 





PI + 

3. 1415V265 

i 









M «- w/G } 

DM1 

<- W M 1 

/ G 

) DM2 

WM2/G 

• 

9 



SPEED = ", 
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RPP <- IP / M ; RT T<- IT / m 3 

RP <- RPP/ (Lx L ) 3 RT «■ RTT / C Lx L ) 3 

LU ♦ LI / L 3 L22 <- L2 / L 3 

R01 «■ Hi - LI ; R02 * H2 - LI 3 


PHI «- (PH x PI ) / teo 
N «• a 3 RSW « FALSE 3 
RAO <• 57.29b7fl 3 

K1XX <- K 1 X / M 3 
K1YY <- K1Y /m } 

c 1 xx <- c i x / m ; 

ClYY <- C1Y / M 3 
R 1 X X «• HlX / M ; 

K1YY «• R 1 Y / M J 

uixx+oix/M ; 

Dl YY «- Dl Y / M 3 
PN1 «- DM2 x R2 x SIM (PHI 
POl «■ Owl x R 1 + DM 2 x K 2 
SI «■ ANGLE (PN'l , PD 1 ) 


EPS «- 4.0 3-10 3K1 <- 2 

K2XX «■ K2X /M 3 

Kpvy «. i<?Y /M 3 

C2xX <- C2X / M s 

C2YY «• C2Y / M J 
R2XX «• R2X / M 3 
R2YY *■ R2Y / A 3 

D2X X «- D2X / M 8 

D2YY +■ D2Y / M 8 

i ; 

x cos (phi ) ; 


E*1 .03-5 


PN2 «■ Ru2 x R2 x I .);,|2 x s I N (PHI ) 5 

P 02 «- R01 x Pi x + «02 * R2 x Dm2 x COS ( ° H I ) 3 

SIT ANGLE (PN2 . P0 2 ) 3 

pp<-o; 

WR1IE ( L p > H E A 0 2 » I. » LI * L2 . HI , H? , W , WM1 . WM2 . K 1 X , 
K1Y . K2Y > C 1 X . C?X » C1Y . C?Y > P1X » R2X . R l Y . R2Y . D1X 

01Y » I) 2 Y . IP » IT . Rl > R2 » PH ) 3 

WRITE ( LPIDPLI ) 3 
WRITE. ( LP . OUT J ) 3 
WRITE C LPCOBL] ) 3 
NOL «■ 4 + 2xP 3 
I <■ 5 i 

OMEGA [II «• 0 ; 

FOR IM *■ 1 STEP 1 UNTIL NOL DO 

BEGIN 

A A [ r M . I ] «■ 0 3 

C V I I M I * 1 3 

eno; 

COORCII «• C OOP I 2 ] <■ 1 3 
C OQR I 3 ] «■ C00RC4I «• 2 3 

for j <■ i step i until p oo 

C00Rr?xj + 3] <- C00RC2XJ + 4] «• LZlJ] > 

0 0 I T A G I IM : 


i «- i + i ; 

omega tn <- omega ii-ii + dw 3 
ICALCULATE (I. OMEGAClJ. NOL. 0 )8 
FINOMAX 3 
IF PP > NOL THEN 

OtGiN 

WRITE. (LPCPAGEn; 

WRITE C L P . < " T 0 T A L PROCESSOR TIME = "> F 6 . 2» X 1 . ”M INUTE S">. 
(TImE(2) - PTIMF) / 3600 ) 3 

WRITE CL PC p AGE 1 . <"TGTAL 1-0 TIME = F6.2. XI. "MINUTES'’ 

(T IMF. ( 3)“I0TIME 1/3600 ) 3 
GO TO LDO 3 

ENO 3 

IF OMEGA II] > WM THEN 

BEGIN 


H-2X . 
D2X . 
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WRITE CLPCDBL3 ,<//."THE FOLLOWING VALUES ARE AT THE MAX. SPEED = ", 
F7.1 , XI, ”R PS”> , KM) ) 

FOR IM <- 1,2, 3, A QJ CALCULATE (1, WM, IM ) t 

WRITE (LPCPAGEI )? 

WRITE CLP»<"TOTAL PROCESSOR TIME = ", F 6 . ? , X 1 »" MINUTES" >, 

CTIMFC2) - PTIME) "/ 3600 ) 1 

WRITE CI.PCPAGE I , < " T 0 T A L I -0 TIME = ", F6.2. XI, "MINUTES" > » 
CTIMEC3 )-I0TIME)/3600 ) f 
GO TO LOO i 

ENDJ 

GO TO 001 TAG IN t 

E2S WRITE CLP , < "ACCURACY NOT OBTAINED " > ) ) 

GO TO LDO I 

U« WRITE CLP , < " SINGULARITY OR ILL CONDITIONED MATRIX " > ) 

GU TO LOO ; 

FINIS » 

Enu • 

ARCTAiM IS SEGMENT NUMBER 0027, PRT ADDRESS IS 025? 

COS IS SEGMENT NUMBER 002d,PRT ADDRESS IS 0265 
SIN IS SEGMENT NUMBER 0029, PRT ADDRFSS IS 0266 
SORT iS SEGMENT NUMBER 0030, PRT ADDRESS IS 0254 
OUTPUT CW) IS SEGMENT N U M B t R 0031 , PRT ADDRESS IS 0302 


BLOCK 

CONTROL 

IS 

t> E G M E N T 

NUMBER 

003?, PRT 

ADDRESS 

IS 

0005 

INPUT(W) IS SEGMENT NUMBER 0033, 

PRT ADDRESS IS 0T21 


Gu TU 

SOLDER 

IS 

SEGMENT 

NUMBER 

0034 , PRT 

ADDRESS 

IS 

0271 

ALGOL 

WRITE 

IS 

S E G A E N T 

NUMBER 

0035, PRT 

ADDRESS 

IS 

0014 

ALGUL 

RE Ali 

IS 

segment 

NUMBER 

0036, PRT 

ADDRESS 

IS 

0015 

ALGOL 

SELL CT 

IS 

SEGMENT 

NUMBER 

0037, PRT 

ADDRESS 

IS 

0016 

LAT I UN 

TIMt = 

119 

SFCElNDS 

a 






NUMbER UK ERRORS DETECTED =000. LAST EPROR ON CARD * 
NUMBER uE St QUEnCE ERRORS COUNTED = 0. 

NUMbER UE SLOW WARNINGS = 0. 

PRT SIZL= 2341 TOTAL SEGMENT SIZE= 1984 WORDS. 

DISK STORAGE R E 0 . = 91 SEGS.J NO. SEGS.= 36. 

ESTIMATED CORE STORAGE REQUIREMENT = 5029 WORDS. 
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TABLE C-I 


L= 3 « 00009+01 IN CH Ll= 1 .50009 + 01 INCH L2= 1 .5 qoq*+01 INCH H 1= 0 . 00009+001 NC H 


H2 = 
K1X = 

O.OOOOP+OOINCH 

2.00009+04LB/IN 

W= 1.10009+02LB 
K 2 x = 1 .S0009+04LB/IN 

WMl = 
K1Y = 

2.0000P-01LB 
1 .6000P+04LB/IN 

WM2= 
K2Y = 

2.0000P-01LB 

1.2000P+04LB/IN 

C1X = 

7. oooop+oolb. sec/in 

C2X= 7. OOOOP+OOLB. SEC/IN 

C 1 Y = 

7 . oooop+oolb. sec/in 

C2Y = 

7 . oooop+oolb. sec'in 

R _1X= 

0.00009+00LB/IN 

R2x = O.OOOOP+OOLB/IN 

R1Y = 

O.OOOOP+OOLB/IN 

R2Ys 

o.oooop+oolb/in 

D 1 X = 

0. OOOOP + OOLB. SEC/IN 

D2X= o. oooop+oolb. sec/in 

DlY- 

O.OOOOP+OOLB, SEC/IN 

D2Y = 

0. OOOOP + OOLB. SEC/IN 

IP = 

5.7000P-01LB-IN-SEC2 

I T= 2. 1600P+01LB-IN-SEC2 

R 1 = 

2.0000P+OOINCH 

R2* 

2 • OOOOP+OOINCH 



PHI= 0 • 00009+ OODEGR EES 


- 

1 



“SpTTd cwrdinate amplitude phase mxjttrhstmi fnmrR^sFHi Emm borins bearing tbrie' pnxset " “percent 

REV/. SEC , LLM1 ANGLE AXIS .(.MM) AXIS (DIM) AMJ-E LOCATIO N .._F_Q.R£_E ANGLE CYL INDRICAL 


4BTB— 

yi 

3.3259-02 

61,7 

Itll 

0745” 

.its. 5 

1 

5.3689+OT 

“5¥7(3 

80.1 

51.3 

Y 2 

4 .,2849-02 

_130.4 

1.16 

0.14 

120.4 

_ 2 

5.2319+02 

119,0 

75.5 

50.0 

Y( 15,0) 

3.484? -02 

97.8 

1.16 

0.25 

121.1 

2 

5'. 2110+02 

104.1 

81.6 

48.6 

YC-15.0) 

3.5539-02 

43.3 

1*09 

0,60 

117.7 

1 

5.3689+02 

54.0 

86.1 

53.6 

XI 

3.5659-02 

54.5 

1.06 

0,42 

159.5 

l 

7.1799+02 

47,8 

91.0 

S6.3 

X2 

4.8099-02 

119,1 

1.17 

0.45 

145.7 

2 

7.3129 + 02. 

109.7 

79.3 

55.0 

XC 15.0) 

3.9279-02 

67.3 

1.11 

0.32 

153.3 

1 

7.1739+02 

61.7 

84.9 

53.8 

XC-15.0) 

3.7109-02 

39.1 

1.01 

0,71 

167.5 

1 

7.1799+02 

47.8 

91.0 

86,3 

Y 2 

7.5089-02 

258 . 3 

1.23 

0,50 

129.5 

2 

9.4499+02 

240.7 

13.6 

88.8 

Yl 

8.9569-02 

103.2 

1.22 

0.46 

128.1 

1 

1.4759+03 

89.5 

13.8 

91.3 

YC 15.0) 

1 .2569+02 

151.6 

1.06 

0.71 

116,2 

1 

" 1.4589+03 

96.6 ' 

14.2 

88.8 

YC-15.0) 

1.7059-01 

100.3 

1.24 

0,47 

129.7 

1 

1.4759+03 

89,5 

13.8 

97.5 

X2 

9.3049-02 

264,4 

1.09 

0,50 

153.7 

2 

1,4519+03 

246.5 

11.7 

100.0 

XI 

1,0979-01 

107.5 

1.06 

0,58 

153.2 

1 

2.2469+03 

95.1 

12.2 

102.5 

XC 15.6) 

1.3579-02 

151.2 

1,05 

0,80 

151.4 

1 

2.1729+03 

105.3 

12.8 

97.5 

XC-15.0) 

2.1019-01 

93,2 

1.11 

0,53 

150.1 

1 

2.2409+03 

63.6 

11.7 


HE FULLQWltfG 

VALUtS 

"ARE— AT THE 

~RAXT SPEED 

* 14Q.0 RPS 



"T. 07 39 +"03 



140,0 

XI 

5 . 125?-(T2~ 

~T6~4~7t 

1,00 0,87 

— trrn 

t - - 

“1^,0 

rB.“9 

140.0 

Yl 

4.4739-02 

166.3 

1.15 1,00 

172.1 

1 

7.6699+02 

145.3 

20.2 

140.0 

X 2 

3.2329-02 

3 38.1 

1,00 0,83 

173,5 

2 

5 • 2419 + 0 2 

315,8 

fa. 9“ ~ 

140,0 

Y 2 

2.7019-02 

340.5 

1,20 1,00 

173.5 

2 

3.6449+02 

313.4 

20.2 



APPENDIX D 


LISTING AND SAMPLE OUTPUT OF COMPUTER PROGRAM ROTSTAB 


rotstab program calculates the general transient motion of 

THE FOUR DEGREE OF FREEDOM RIGID BODY ROTOR. A TOTAL OF 8 CROSS 
COUPLED STIFFNESS AND DAMPING COEFFICIENTS MAY BE PRESCRIBED FOR 
EACH BEARING. THE ROTOR CHARACTERISTIC EQUATION IS EXPANDED TO 
OBTAIN AN 8TH ORDER POLYNOMIAL EQUATION WHICH IS SOLVED TO DETER" 
MINE ALL REAL AND IMAGINARY ROOTS, THE IMAGINARY COMPONENT 
REPRESENTS THE ROTOR NATURAL FREQUENCY OR WHIRL SPEED AND THE REAL 
COMPONENT DETERMINES STABILITY, THE ROUTH CRITERION MAY BE USED 
TO determine the presence OF A real POSITIVE ROOT without SOLVING 
THE COMPLETE CHARACTERISTIC EQUATION. IN THE CASE OF A SYMMETRIC 
ROTOR USE STAB I L4 OR SET ORDER TO 6, CONVERGENCE PROBLEMS MAY 
OCCUR WITH DOUBLE REPEATED ROOTS, 

BEGIN 

COMMENT INPUT DATA TO THE PROGRAM* ROTSTAB* WILL BE SOUGHT IN THE 
FILE* "CR". ALL DATA IN THIS FILE MUST BE IN FREE FIELD FORMAT. THE 
LAYOUT OF THE FILE WILL BE GIVEN BELOW. 


ROTSTAB INPUT DATA 


<OPTION CARDS> THESE CARDS ARE OPTIONAL AND ANY OR ALL 

OF THEM MAY BE OMITTED, IF MORE THAN ONE IS 
PRESENT THEN THEY MUST OCCUR IN THE RELATIVE 
ORDER DESCRIBED BELOW. 

<S I GF I G C ARD> IF THE STRING* "SIGFIG" IS THE FIRST 

FIELD ON AN OPTION CARD THEN THE CARD MUST ALSO 
CONTAIN A SECOND VALUE WHICH WILL BE USED AS 
THE NUMBER OF SIGNIFICANT FIGURES OF AGREEMENT 
REQUIRED IN THE CONVERGENCE TEST. IN THE 
ABSENCE OF THIS CARD* TEN SIGNIFICANT FIGURES 
WILL BE REQUIRED. 

<URDER C ARD> IF THE STRING* "ORDER** IS THE FIRST 

FIELD ON A CARD THEN THE CARD MUST ALSO 
CONTAIN A SECOND VALUE, THIS VALUE WILL BE 
USED AS THE ORDER OF THE POLYNOMIAL AND ANY 
HIGHER ORDER COEFICIENTS WILL BE SET TO ZERO. 

<ROUTH C ARD> IF THE FIRST FIELD ON AN OPTION CARD IS 

THE STRING* "ROUTH"* THEN THE ROUTH CRITERION 
WILL BE APPLIED IN ORDER TO DETERMINE THE 
STABILITY OF THE ROTOR AND THE PROBLEM WILL 
NOT BE SOLVED FURTHER. 

<B AS I C DATA C ARD> THERE WILL BE ONE <BASIC DATA CARD> FOR 

EACH RUN OF ROTSTAB. THE FIELDS OF THIS CARD 
WILL BE USED AS VALUES FOR THE FOLLOWING INPUT 
DATA AND IN THE SAME ORDER AS THEY ARE 
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DESCRIBED BELOW. 

1. L- LENGTH BETN BRGS CINCH) 

2. LI- DIST FROM 1ST BRG TO MASS CENTER CINCH) 

3. L2- OIST FROM 2ND B«G TO MASS CENTER CINCH) 

4. W- ROTOR WEIGHT C LBS ) 

5. IP- POLAR M.I. CLB-IN-SEC2) 

6. IT-TRANSVERSE M,I. OF ROTOR ABOUT MASS CENTER C LB-IN-SEC2 ) 

<D AT A SET> THERE MAY BE AS MANY SETS OP DATA AS 

DESIRED. THE LAYOUT OF A SET OF DATA WILL BE 
DESCRIBED BELOW, WITH THE EXCEPTION OF THE 
FIRST SET. EACH NEW SET OF DATA SHOULD FOLLOW 
IMMEDIATELY AFTER THE LAST CARD OF THE 
PRECEDING SET. 

CARD 1 

1. WO- INITIAL SPEED CRPS) 

2. DW- INCREMENT IN SPEED CRPS) 

3. WM- FINAL SPEED CRPS) 

CARD 2 

1. K1X- 1ST BRG STIFFNESS IN X DIRECTION CLB/IN) 

2. K2X- 2ND BRG STIFFNESS IN X DIRECTION CLB/IN) 

3. K1Y- 1ST BRG STIFFNESS IN Y DIRECTION CLB/IN) 

4. K2Y- 2ND BRG STIFFNESS IN Y DIRECTIQNCLB/IN) 

CARD 3 

1. C1X-1ST BRG DAMPING COEFF IN X D I RECT I ON C LB . SEC/ I N ) 

2, C2X- 2ND BRG DAMPING COEFF IN X DIRECTION CLB.SEC/IN) 

3. Cl Y- 1ST BRG DAMPING COEFF IN Y DIRECTION CLB.SEC/IN) 

4, C2Y- 2ND BRG DAMPING COEFF IN Y DIRECTION CLB.SEC/IN) 

CARD 4 

1. D 1 X- CROSS COUPLING DAMPING COEFF CLB.SEC/IN) 

2. D2X- CROSS COUPLING DAMPING COEFF CLB.SEC/IN) 

3. D1Y- CROSS COUPLING DAMPING COEFF CLB.SEC/IN) 

4. D2Y- CROSS COUPLING DAMPING COEFF CLB.SEC/IN) 

CARD 5 

1. R 1 X- CROSS COUPLING STIFFNESS CLB/IN) 

2. R2X- CROSS COUPLING STIFFNESS CLB/IN) 

3. R 1 Y* CROSS COUPLING STIFFNESS CLB/IN) 

4. R2Y- CROSS COUPLING STIFFNESS CLB/IN) 

POLY 

THIS IS AN OPTION CARD AND MAY BE OMITTED. IF PRESENT . IT MUST 
CONTAIN THE STRING. "POLY'S AS THE FIRST FIELD ON THE CARD. THIS 
WILL CAUSE THE COEFICIENTS OF THE DETERMINANT POLYNOMIAL TO 
BE PRINTED. 

MODE 

THIS IS AN OPTION CARD AND MAY BE OMITTED. IF PRESENT THEN THE 
STRING. "MODE". SHOULD BE THE FIRST FIELD ON THE CARD. THIS 
WILL CAUSE THE MODE SHAPE VECTORS To BE PRINTED. 

THIS IS THE END OF THE COMMENT TO ROTSTAB.* 

FILE SECNDKY 18 n POLY " " MODE " C2.15)> 

FILE PRIMARY 18 "PRIMARY" " OUTPUT" C2.15)> 

FORMAT FMTSPD ("---- SPEED = ",I5." RPS ). 

FMTPOLY C " T H E COEFFICIENTS OF THE DETERMINANT POLYNOMIAL n > 

"C IN ASCENDING ORDER ) ARE * "// 9E 1 3 . 5// ) . 

FMTROOT C"THERE ARE ".II." CHARACTERISTIC ROOTS. WITH REAL ". 
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"AND IMAGINARY PARTS AS FOLLOWS!"// 

"REAL ",*E14.5/"IMAG "**E14.5//)* 

FMTWHRL ("THE WHIRL RATIOS ARE ! "/ ) . 

FMTFREQ ("THF NATURAL FREQUENCIES ( IN CPS ) ARE!"// 
X8+8E14.5//)* 

FMTMODE C "THF MODE SHAPE VECTORS ARE AS FOLLOWS!"//)* 


FM2 CX24*" MODE "*I1*" < NATURAL FREQUENCY = "* 

E 1 3 . 5 * " CPS ) "// 


2("VECT0R OF " * A 4 * " PARTS "*4E18.9/))* 

PLYECHO ("THE C OEFF 1 E I ENTS OF THE DETERMINANT POLYNOMIAL "* 
"WILL BE GIVEN.")* 

MODECHO ("THE MODE SHAPE VECTORS WILL BE GIVEN.")* 

FMTODD ( X60 » "ODD ORDER POLYNOMIAL"//)* 

ERRFMT ( 60 ( "* ")/ 

"GETRANSIENTSOLUTION WAS UNSUCESSFUL IN DOING ITS "* 
"WORK. THE HANGUP OCCURED WHILE COMPUTING VECTOR "* 
"NUMBER "*Il*"."//60(" *")), 

FMTECHO (3(X16,A3*E11.4*"INCH")//X16,"Ws",E11.4*"LB"* 
2(X16»A3*E11.4*"LB-IN-SEC2")// 

X 3 * "K1X = " * Ell. 4 » "LB/ 1 N" * X10 * "K2X = " * Ell. 4 *"L8/lN" * X10 * 

"K 1 Y=" * Ell. 4 * "LB/IN" * X10 * "K2Y=" * Ell. 4 * "LB/IN" * / * 

X 3 * "C1X = " * Ell. 4 * "LB. SEC/IN" * X6 , "C2X=" * Ell. 4 * "LB.SEC/lN" * 

X 6 , "C1Y = " * Ell. 4 * "LB. SEC/IN" *X6 * "C2Y = " * Ell. 4 * "LB. SEC/IN" */* 

X 3 * " R 1 X = " * Ell. 4 » "LB/IN" * X10 * "R2X = " * Ell. 4 » "LB/IN" * X10 * 

"R 1 Y=" * Ell. 4 , "LB/IN" * XlO *"R2Y=" * Ell. 4 * "L8/IN" « / * 

X 3 » "D1X = " , Ell. 4 » "LB. SEC/IN" * X6 , "D2X=" * Ell, 4 * "LB. SEC/IN" * 

X6 * "D1Y = " * Ell. 4 * "LB. SEC/IN" * X6 , "D2Y = " * Ell. 4 * "L B . SEC / 1 N" * / 

2(2(59("*") )*/) ) * 

ALLWHRL (X8.8E14.5)) 

SWITCH FORMAT SWITFMT* 

(X60* "UNSTABLE "*X10*"RR = "*E13.5*" ROW = "*I2//)* 

(X62*" STABLE "*A1//)* 

REAL G*PI*W,M*DM1»WM1*DM2*WM2*RPP*IP*RTT*IT*L*L11*L1*L22*L2*W0, 
DW*WM*K1X.K?X*K1Y*K2Y*C1X*C2X*C1Y*C2Y*D1X*D2X»01Y*D2Y*R1X* 
R2X*R1Y*R2Y.STRING*KAD»K1XX*K2XX*K1YY*K2YY*C1XX*C2XX*RT*RP* 
C1YY*C2YY,R1XX*R2XX*K1YY*R2YY*D1XX*D2XX*D1YY*D2YY*PI2*R»S»EPS* 
INTEGER I* J,K*U0I*R0W5 REAL RR* 

ARRAY A*B*C*AR*AI*BR*BltO!4*0!4],CMTX*ICMTXC0i8*0!8]* 
MUVEK*NUVEK[0 s9]*WHRARYI0!14)*T0[ 1 !33* 

BOOLEAN EOFBOOL* MODE* POL Y * WHRLBOL*ROUTH* ORDER) 

LABEL ALAB*BLAB*PROCESS*EOF*EXlT*SLP) 

LIST LSTALL (FOR I«-l STEP 1 UNTIL M DO NUVEKCI3/S)* 

LSTMODE (K*NUVEKCK)/PI2»" REAL ".FOR 1*1 STEP 1 UNTIL 4 DO 

CMTXCK, I]*"IMAG"*FOR 1*1 STEP 1 UNTIL 4 DO ICMTX[K*I])* 
LSTFREQ (FOR 1*1 STEP 1 UNTIL M DO NU VEK C I ] /P I 2 ) » 

LSTROOT (M*M,FOR 1*1 STEP 1 UNTIL M DO MUVEKCII* 

M.FOR 1*1 STEP 1 UNTIL M DO NUVEKt I ] )* 

LSO CRR*ROW)* LSI (" ")* 

LSTECHQ ("L , L * "L 1 = " * L 1 * "L2 = " , L2 * W* " I P = "* I P * " I T = " * I T* 

K1X*K2X*K1Y*K2Y*C1X*C2X*C1Y*C2Y*R1X*R2X*R1Y*R2Y* 
DlX,D2X*DlY*D2Y)) 

SWITCH LIST SWITLST * LSO * LSI) 

STREAM PROCEDURE BL ANK C B ASE* SK I )) 

VALUE SKI ) 

BEGIN 0I*8ASE) SKI (01*01+14)) DS*14 LIT " ") END) 

PROCEDURE ROUTHH(R* N * A * RR * STABLE * ROW ) ) 
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COMMENT N=OROER OF THE POLYNOMIAL. 

THE COEFFICIENTS OF THE POLYNOMIAL AU] ARE READ IN DESCENDING 

POWERS OS LAitOA «. 

A [ 0 ] CORRESPONDS TO THE HIGHEST POWER OF LAMDAI 

VALUE N ; 

REAL ARRAY AtO] ,R[0,0]; 

REAL RR * 

INTEGER N , ROW J 
BOOLEAN STABLE ; 

BEGIN 

INTEGER I , J. , K i 

LABEL FIN > ACN+1] 4- OJ 

FOR K<-0 STEP 1 UNTIL N DO 
IF A [ K ] SO THEN 
BEGIN 

STABLE«-FALSE ; 

ROW *■ K f 
RR * ACK] t 
GO TO FIN f 
END 
ELSE 

FOR 1*0 • 1 DU 

FOR J 4-0 STEP 1 UNTIL N/2 DO 

R[I,J]4- AC2x J + I ] I 

FOR T«. 2 STEP 1 UNTIL N-l DO 

FOR J4-0 STEP 1 UNTIL N/2-1 DO 

BEGIN 

R[I,J]4- R[I-2,J + 13 - RCI-2,03 x R[ I-1,J+1 ]/R[ 1-1,0] 1 

IF Rri.*0]<0 THEN 

BEGIN 

stable «■ FALSE ; 

R0W4-I ; 

RR4- RCI/O] ; 

GO TO fin; 

END ; 

end; 

STABLE4- TRUE ; 

FIN* END OF PROCEDURE ROUTH ; 

PROCEDURF TTMEANDATECTZERD,FYLE,OPTION); 

value option; real option; integer ARRAY TZEROOjj file fyle; 

COMMENT this IS A UTILITY PROCEDURE WRITTEN RY R. TOMLIN# 

RLES. THE ACTION OF THE PROCEDURE DEPENDS ON THE 
RIGHTMOST 39 BITS OF THE PARAMETER OPTION. FOR 
CONVENIENCE, THIS 39 BIT PACKAGE WILL BE IDENTIFIED 
WITH THE STRING "NFFFDDD". HERE N IS the OCTAL DIGI 
CONSISTING OF THE 3 LEFTMOST BITS OF THE PACKAGE', 

AND FFFDDD IS THE COLLECTION OF 6 CHARACTERS DEFINED 
BY THE REMAINING 36 BITS. N IS CALLED THE IDENT- 
IFICATION DIGIT, AND FFF, DDD, AND FFFODD ARE CALLED 
THE FILE, DATE, AND COMPOSITE OPTIONS', RESPECTIVELY. 

INITIALLY., "FFFDDD" IS COMPARED WITH THE STRING, 
"CENTER". IF THEY ARE EQUAL, THEN A CHECK IS MADE ON 
THE VALUE OF N. IF N = 0, THEN FYLE IS ASSUMED TO BE 
A LINE PRINTER FILE. THE PRINTER IS DOUBLE SPACED AND 
THE DATE IS WRITTEN OUT, CENTERED ON THE LINE, WITH 
CARRIAGE CONTROL CDBL3, IF N DOES NOT EQUAL ZERO, 
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THEN FYLE IS TAKEN TO BE AN ALPHA TAPE FILE* AND THE 
RLESMPT EQUIVALENT OF DOUBLE-SPACE* CENTERED-UATE* DOUBLE 
SPACE IS WRITTEN ON TAPE. IN EITHER CASE* THE PROCEDURE 
IS THEN EXITED, 

IF "FFFDDD" DOES NOT EQUAL "CENTER”* THEN "FFF" IS 
COMPARED WITH "MPT". IF "FFF" AND "MPT" DO NOT AGREE* THE 
PROCEDURE ASSUMES THAT FYLE IS A LINE PRINTER FILE. FIRST 
THE PRINTER IS DOUBLE SPACED* AND THEN A LINE IS WRITTEN 
WHICH CONTAINS THE DATE* PLACED NEAR THE LEFT MARGIN. THE 
CARRIAGE CONTROL FOR THIS LINE Is tNOI* AND THE FIRST 
CHARACTER OF THE LINE IS DETERMINED BY N. IF N = 0* THEN 
THE FIRST CHARACTER IS A BLANK* OTHERWISE IT IS THE 
DIGIT* N. NEXT* "ODD" IS COMPARED WITH "DAT". IF THEY 
AGREE* THE PRINTER IS DOUBLE SPACED AND THE PROCEDURE IS 
EXITED. IF "DDD" DIFFERS FROM "DAT"* THEN IT IS ASSUMED 
THAT THE FIRST THREE ENTRIES OF T ZERO HAVE 8EEN INITIAL- 
IZED WITH READINGS FROM THE ELAPSED* PROCESSOR* AND I/O 
CLOCKS. THE REMAINDER OF THE LINE JUST WRITTEN IS THEN 
FILLED OUT (USING CARRIAGE CONTROL [ DBL ] ) WITH THE 
AMOUNTS OF ELAPSED* PROCESSOR* AND I/O TIME WHICH HAVE 
PASSED SINCE THAT INITIALIZING, THE PROCEDURE IS 
THEN EXITED, 

IF ”FFF"="MPT"* THEN FYLE IS ASSUMED TO BE AN 
ALPHA TAPE FILE. THE REMAINING ACTION IS IDENTICAL TO 
THAT ABOVE EXCEPT THAT RLESMPT RECORDS WILL BE WRITTEN 
ON TAPE* INSTEAD OF LINE IMAGES BEING WRITTEN ON THE 
LINE PRINTER? 

BEGIN STREAM PROCEDURE SEP AR A T E Y YDDD C Y YDDD* Y Y * DDD ) ? 

BEGIN DI«-YYDDD; DS*3 LIT"019"? DI«-YY? SK-YYDDD? 

SI«-SI + 1? DS*4 OCT? DK-DDD; DS«-3 OCT 
END OF SEPARATEYYDDD PROCEDURE? 

STREAM PROCEDURE TRANSFER C VEK I N* VEKOUT ) ? 

BEGIN SI*VEKIN? DI*VEKOUT? DS+3 WDS END? 

ALPHA ALF? 

INTEGER MNTHNMBR* DAYNMBR* EXCESS* TYMZERO* YEAR* 
DAYOFMNTH*TUMNU*K* J? 

INTEGER ARRAY TNAUT*DELTA[ls3I,DAYC0UNTC0*in* 

MNTHNAME [ 0 S 23 ] ? 

FORMAT FMO ( A 1 * A 4 * A5* I 3* "* " * I 5* " , ")* 

FMl C0*Al*A4,Ab*I3*"*"*I5,". " ) * 

F M 2 CX22*" TOTAL ELAPSED TIME IS"*I6*" SECONDS"* 

", PROCESSOR TIME IS"*I6*" SECONDS. "* 

"I/O TIME IS" * 16*" SECONDS.")* 

FM 3 CD*X22*" TOTAL ELAPSED TIME IS"*I6*" SECONDS"* 

", PROCESSOR TIME IS"*I6*" SECONDS. "* 

"I/O TIME IS"* I6»" SECONDS.")* 

FMCNTRE1 CX50* A5» A5* 13*"*"* 15*".")* 

FMCNTRE2 C0*X50»A5*A5*I3*"*"*I5*".")* 

FMSTAR (0)? 


FILL MNTHNAMFC*] WITH " 

JA"*"NUARY"* 


»l 

FEB"*"RUARY"*" 

"*"MARCH"*" 

"* "APRIL"* 

It 

"*" MAY"*" 

"*" JUNE"*" 

"*" JULY"* 

tf 

A"*" U GUST"*" 

SEPT"*"EMBER"*" 

OC"*"TOBER"* 

ft 

NOV"* "EMBER"* ” 

DEC"*"EMBER"? 


TRANSFERCTZERO*TNAU-T)? 

K<-0? 



FUR J + 3 1 * 28* 31* 30* 31* 30* 31* 31* 30* 31* 30* 31 DO 



BEGIN DAYC0UNTCK3«-J; K<-K + l END; 

tymzero«-timeco); 

SEPARATEYYDDDCTYMZERO, YEAR,DAYNMBR); 

IF year MOD 4 =0 THEN D A YC OUN T [ 1 3 *29; 

excess*daynmrr; mnthnmbr*-i; 

FUR K«-MNTHNMBR WHILE £XCESS>0 DO 
BEGIN EXCESS«-EXCESS-DAYCUUNTCK + 1]; 

mnthnmbr*mnthnmbr+i 
end; tumno«-2xmnthnmbr; 

DAYOFMNTH«-EXCESS + OAYCQUNTtMNTHNMBR]; 

ALF <■( IF OPTION. [9: 31=0 THEN " " ELSE OPTION. I 9* 33 ); 

IF OPTION. C12: 363=”CEnT£R" THEN 
BEGIN IF OPTION. C9* 83=0 THEN 

begin writecfylecdbli ); 

WRITECFYLEtDBL]»FMCNTREl,MNTHNAMECTUMN03, 
MNTHN'AMEt TUMNO + 1 I/DAYOFMNTH^ YEAR) 

END 

ELSE 

begin WRITE(FYLE*FMSTAR*2); 

WRTTE(FYLE*FMCNTRE2*2*MNTHNAMECTUMN0]* 
MNTHNAMECTUMNO+1 J* DA YOFMNTH* YEAR) 

END 

END OF CENTER OPTIONS 
ELSE 

IF OPTION, C 12s 18 ]* m MPT" THEN 
BEGIN WRITECFYLECDBLI )) 

WRITECFYLE[NO)*FMO*ALF*MNTHNAMECTUMNOJ> 
MNTHNAMECTUMNO+1 J*UAY0FMNTH* YEAR); 

IF OPTION. C30818)=*’DAT" THEN WRITECFYLECDBU ) 

ELSE 

BEGIN FOR J* 1 * 2* 3 DO DELT A C J ) * C T I ME C J ) -TN AUT [ J ] ) /60 ; 
WRITECFYLECDBL)*FM2*DELTA[1]*DELTA[2]*DELTA[3] ) 

END 

END OF PRINTER OPTIONS 
ELSE 

BEGIN WRITE(FYLE*FMSTAR*2); 

WRITE(FYLE*Fm1*0* ALF/MNTHNAMECTUMNO], 

MNTHNAMECTUMNO+1 3*DAY0FMNTH* YEAR); 

IF OPTION. [30* 18J="DAT" THEN WRITECFYLE*FMSTAR*2) 

ELSE 

BEGIN FOR J*l*2*3 DU DELT A C J ) «■ C T I ME C J ) -TN AUT C J I ) /60I 
WRTTECFYLE*FM3*2*DELTAC 1 3 * DEL T A [ 2 3 * DEL T A [ 3 3 ) 

END 

END OF RLESMPT OPTIONS 
END OF TIMEANDATE PROCEDURE; 

PROCEDURE MLTPLYREALPOLYCM*N*A*B,C)) 

VALUE M*N; INTEGER M,n; ARRAY A*B*C[0]; 

BEGIN COMMENT THIS PROCEDURE ASSUMES THAT THE 

VECTORS A AND B CONTAIN THE COEFFICIENTS OF 
POLYNOMIALS OF ORDER M AND ORDER N* RESPECTIVELY. 
SPECIFICALLY* THE COEFFICIENTS OF THE KTH POWER 
OF THE POLYNOMIAL VARIABLE ARE STORED IN AtK] 

ANO B t K ] * RESPECTIVELY, 

MLTPLYREALPOLY COMPUTES THE COEFFICIENTS 
OF THE POLYNOMIAL WHICH IS THE PRODUCT OF THE 
GIVEN TWO* AND STORES THEM INTO THE VECTOR* C. 
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AS WITH A AND B# THE COEFFICIENT OF THE KTH 
POWER IS STORED INTO CCKI. 

THE ARITHMETIC IS SO ARRANGED THAT IF A 
CONTAINS THE COEFFICIENTS OF THE POLYNOMIAL 
OF LESSER DEGREE, THEN THE MOST EFFICIENT 
CONFIGURATION HAS BEEN REALIZED; 

real ap; integer k#p#q; p*m+n; 

FOR K«-0 STEP 1 UNTIL P DO CCKKO; 

FOR P«-0 STEP 1 UNTIL M DO 

begin ap^-aipi; 

FOR Q<-0 STEP 1 UNTIL N DO 
C[K<-(P + Q) K8[Q]xAP + C[K] 

END OF THE LOOP ON P 
END OF THE MLTPLVRE ALPOL Y PROCEDURE; 

procedure getdetpolycn# a#b#c#d>; 

VALUE n; INTEGER n; ARRAY A#B#CtO#0]#DCOJJ 

BEGIN comment CONSIDER THE NxN MATRIX# G# DEFINED BY 

fit I, J ] = A C I# J]xT* 2 + BC I# J]xT + Ct I# J] . IT IS CLEAR 
THAT THE DETERMINANT OF G IS A POLYNOMIAL OF 
DEGREE 2N IN THE PARAMETERS. 

GETDETPOLY COMPUTES THE COEFFICIENTS OF THIS 
POLYNOMIAL AND STORES THEM INTO THE VECTOR# D. 

THE COEFFICIENT OF THE KTH POWER OF T IS 
STORED INTO DCK], THIS FOR K = 0, 1#...# 2xN. 

THE ENTRIES OF A# B» AND C WHICH HAVE 
INDICES IN THE RANGE FROM ONE TO N ARE 
ASSUMED TO CONTAIN THE REQUIRED QUANTITIES. 

THOSE ENTRIES INVOLVING A ZERO INDEX ARE NOT 
REFERENCED BY GETDETPOLY; 

INTEGER TN#NM1#TNM1#KM1#K#P#Q# I# j; LABEL EXIT; 

ARRAY QUA0[0j2]#DALTC0»2xn]# 

DMI0«2x(N-1)]#AM#BM#CMC0IN-1#0IN-1]; 

TN«-2xn; TNM1«-2x(NM1«-N-1 >; 

IF N= 1 THEN 

begin DtOKC[i#n; on kbc 1 # 1 1; 

DC2KAC1# 1 j; GO TO EXIT 
End of THE SPECIAL CASE WHEN N EQUALS ONE; 

FOR K«-0 STEP 1 UNTIL TN DO D[K]«-0; 

FOR K*1 STEP 1 UNTIL N DO 

IF A[K#1]*0 OR B£K# 13*0 OR C[K#13i*0 THEN 

begin kmkk-i; 

FOR IM STEP 1 UNTIL KM 1 DO 
FOR J + 2 STEP 1 UNTIL N DO 
BEGIN AM[I#Q«-(J”1)KA[I#J]; 

BMtI#QK-B[I#Ji; CM[ I#Q3*C[ I# J3 
END OF THE LOOP ON J; 

FOR I «-K + 1 STEP 1 UNTIL N DO 
begin P*I-i; FOR J*2 STEP 1 UNTIL N 00 
BEGIN AM[P#Q«-C J-l ) 3*A[ I# J3I 

BM[P#QKBl I,J]; CMCP#Q]*C[ I#J] 
end OF THE LOOP ON J 
END OF THE LOOP ON I; 

OMIOKCMt 1# 13; DM ( 1 3 +BM [ 1 # 1 3 I DM[2K-AM[l,li; 

IF N>2 THEN GETDETPOLY ( NM 1 # AM# BM# CM# DM ) ; 

IF BOOLEANCK) THEN 
BEGIN QU AO [ 0 ] ♦■C C K# 1 1 ; 



QUAom+BCK/n; quad[23«-a[k,i] 

END OF EVEN PARITY CASE 
ELSE 

begin qual>[o]«--C[k» n; 

QUAD! 1 ]<— BCK,1 J,’ QU AD [ 2 3«-- A t K , 1 3 
END OF ODD PARITY CASE! 
MLTPLYREALP0LYC2,TNM1,QUAD/DM>DALT)J 
FOR I<-0 STEP 1 UNTIL TN DO D [I ] *D ALT C I ] +D E I 3 
END OF THE LOOP ON K ) 

EXIT! 

ENO OF THE GETDETPOLY PROCEDURE; 

REAL PROCEDURE I NRPROD C N , A , B ) ; 

value n; integer n; array a,bco3; 

begin comment this procedure computes the 

INNER PRODUCT OF A AND B AND STORES IT 
INTO THE IDENTIFIER, INRPROD. 

A'ANU B ARE ASSUMED TO HAVE INDICES 
IN THE RANGE 0 TO N. A C 0 3 AND BCO] ARE 
NOT REFERENCED BY THIS PROCEDURE,’ 

integer k; real t; t<-o; 

FOR K «- 1 STEP 1 UNTIL N DO T«-A C K ] xB I K ] + TI 
I nrprod+t 


end of the inrprod procedure; 

REAL PROCEDURE MODUF I NRPROD ( N, A , I A , B, 1 8 ) ; 

value n; integer n; array a,ia,b,ib[0]; 

begin comment THE MODULUS OF THE INNER PRODUCT OF 

THE COMPLEX VECTORS $ AND T IS COMPUTED AND 
STORED INTO MODOFINKPROD , FURTHER, THE REAL 
AND IMAGINARY PARTS DF <S,T>, ITSELF, ARE STORED 
INTO A 1 0 1 AND IACOI, RESPECTIVELY. 

S AND T ARE ASSUMED TO HAVE N ENTRIES, 
BEGINNING AT INDEX VALUE ONE. THE REAL AND 
IMAGINARY PARTS OF S ARE, RESPECTIVELY, A AND 

ia. those of t are b and ib, respectively; 


integer k; real re,im; re«-im*o; 

FOR K*1 STEP 1 UNTIL N DO 

BEGIN RE«-A[K]XB[K] + IA[K]XIB[K]+RE; 

IMMACKJxBCKI-IBCKIxACKI + IM 

END OF THE SUMMATION LOOP; 

MODOFINRPROD«-SQRT( C A[0]<-RE)*2+C IAI03«-IM)*2) 

END OF THE MODOFINKPROD PROCEDURE; 

REAL PROCEDURE MODSQOFINRPROD(N,A,IA,B,IB); 

VALUE n; INTEGER N; ARRAY A , I A, B , IB [ 0 3 ; 

BEGIN COMMENT THE MODULUS SQUARED OF THE INNER PRODUCT OF 
THE COMPLEX VECTORS S AND T IS COMPUTED AND 
STORED INTO MOOSQOF I NRPR OD . FURTHER, THE REAL 
AND IMAGINARY PARTS OF <S,T>, ITSELF, ARE STORED 
INTO A C 0 3 AND IAC03> RESPECTIVELY. 

S AND T ARE ASSUMED TO HAVE N ENTRIES, 
BEGINNING AT INDEX VALUE ONE. THE REAL AND 
IMAGINARY PARTS OF S ARE, RESPECTIVELY, A AND 
IA. THOSE OF T ARE 8 AND IB, RESPECTIVELY; 

integer k; real re,im; re<-im<-o; 

FOR K «■ 1 STEP 1 UNTIL N DO 
BEGIN RE«-A[KJXB[K] + IA[K]XIB[K]+RE; 
IM«-IA[K]xB[K]-IBCK3xa[K1 + IM 



end of the summation loop? 

MODSOOFINRPROD* < A C 0 ] «-RE ) *2+( I A C 0 ] «■ I M ) *2 

END OF THE MODSQOFINRPROD PROCEDURE J 
REAL PROCEDURE C MPL X I N VERSE C N * A * IA ) ; 

value n; integer n; array a, iaco*oi; 

COMMENT THIS IS A MODIFICATION QF RODMANS PROCEDURE FOR 
INVERTING A COMPLEX MATRIX* S. THE MATRIX* S* IS 
ASSUMED TO 8E OF ORDER N* AND TO HAVE IJ-TH ENTRIES 
WHOSE REAL AND ' IMAGINARY PARTS ARE ACI*JI AND IAII*J3* 
RESPECTIVELY. THE PROCEDURE IS EXITED WITH THE MODULUS 
OF THE DETERMINANT OF S STORED INTO CMPLXINVERSEI 
COMMENT THIS PROCEDURE INVERTS A MATRIX OF COMPLEX ELEMENTS. 

SEE CORRESPONDING TECHNICAL BULLETIN FOR DETAILS ON USE 
OF THE PROCEDURE. 

R.D. RODMAN 
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BEGIN 


FOR L «- 1 STEP 1 UNTIL Z DO 

BEGIN 

Q2[0»L3 «- A [ K , L 3 5 Q 2 C 1 > L ] «• IA[K,L] 

END ; 

ClPCQl, 02, Z) f 

AtK,IJ <- ACK, I J - 0110,03 ; I A C K , I J «• I A C K, I ] - Q 1 C 1 , 0 3 

END } 

BIG <- 0 J K2 «• I ; 

FOR K <■ I STEP 1 UNTIL N DO 

BEGIN 

T • A[K, 13*2 + I A [ K, I ] *2 > 

IF T > BIG THEN 

BEGIN 

BIG *■ T J K2 «• K 

END 
END f 

IF BIG = 0 THEN BEGIN CMPLXINVERSE«-o; GO TO EXIT END! 

FCIJ «• K 2 ; 

IF K2 * I THEN FOK K * 1 STEP 1 UNTIL N DO 

BEGIN 

TEMP «- A T I » K ] > A [ I , K 3 «• AtK2,K3 i A t K2, K 3 «• TEMP ) 

TEMP <■ I A [ I , K 3 > I A C I , K 3 *■ IA[K2,K3 ; IA[K2,K3 <• TEMP 

END ; 

D I AG • 1/(A[I,IJ*2 + IA[ I, I ]*2) f 
FUR K <• 1 STEP 1 UNTIL Z DO 

BEGIN 

Q 1 [ 0, K 3 <• AC I , K 3 } Q1[1,K] «■ IACI,K3 

END ; 

FOR K <- r + 1 STEP 1 UNTIL N DO 

BEGIN 

FUR L M STEP 1 UNTIL Z DO 

BEGIN 

02 [ 0 , L 3 <• A C L , K 3 ) CJ 2 C 1 , L 3 • I A C L , K 3 

end ; 

CIPCQ1, Q 2 , Z) ; 

T <- A [ I , K 3 - 0110,03 f IT <• I A 1 1 , K 3 - Q 1 1 1 > 0 3 t 
A [ I , K 3 «-CTxACI^I] + ITxiA[I,I3) x OIAG i 
I A C I , K 3 <■ CITxA[I,I3 - TxlACI,I3) x D I AG 

END 
END ; 

T*i; FOP K*1 STEP 1 UNTIL N 00 Tf ( A [ K , K 3 * 2+ 1 A [ K , K 3 * 2 3 x Tf 
CMPLXINVERSE«-SORT(T)J 

FOR I <- 1 STEP 1 UNTIL N DO 

BEGIN 

OIAG <- l/( ATI, 13*2 + IA[I,I3*2) f Z * 1-1 3 
FUR J «■ 1 STEP 1 UNTIL I DO 

BEGIN 


IF I * J THEN 



BEGIN 


EUR K «■ J STEP 1 UNTIL Z DO 

BEGIN 

<mo,K-j+u «■ a t k » j i ; qi[1,k-j+1] <• IA[K,J] ; 
Q2CO,K-J+13 «• A C I j. K J i Q2[1,K-J+1] «■ IA[I,K3 

END ; 

cipcqi, 02, i-j) ; 

A C I , J ] *■ (-Q1 tO,0]xAt I, I ] - QlCl,0]xIACI,I]> x D I AG t 
I A [ I , J ] <- (Ql[0,OJxIACI,I]- QlCl,0]xACI,IJ) xQIAG 

END 

ELSE 

BEGIN 

A 1 1,13 «■ All, II x D I AG ; 

I A C I > I 3 «■ -IACI>I3 x D I AG 

END 
END 
END ; 

V 4- N-l 

FOR I «• V STEP -1 UNTIL 1 DO 

BEGIN 

z 4- i + i ; 

FUR J 4- N STEP -1 UNTIL Z DO 

BEGIN 

Y 4- J-l ; 

FOP K 4- I + l STEP 1 UNTIL Y DO 

BEGIN 

Q1[0,W«-K-I] «■ A t K , J 3 i Q 1 [ 1 , W ] «■ I A C K , J ] f 
Q 2 [ 0 , W 3 4- AtI,K3 f Q2C1,W] 4- IAtI,K3 

END ; 

CIPCDl, (32, Y-I) { 

At I, J] 4- -At I, JJ - Q 1 1 0 , 0 3 ; 

I A [ I » J ] 4- -lAtI,J3 - Q 1 C 1 , 0 ] 

END 
END ; 


FDR I 4 - \ STEP 1 UNTIL V DO 

BEGIN 

FOR J 4 - 1 STEP 1 UNTIL N DO 

BEGIN 

IF I > J THEN 

begin 


FUR K 4- T + 1 STEP 1 UNTIL N DO 

BEGIN 

QltO,K-II 4 - A t I , K 3 ; Ql[l,K-n 4- I A f I , K ] ; 

G2[0,K-I1 «• A [ K , J ] i Q2CUK-I3 «• IACK,J] 

END \ 

CIPCQ1, (32, N-I) ; 

At i, J] 4 - a 1 1 , j 3 + a 1 1 o, o 3 ; 

I A c 1,03 «- I A 1 1 , J 3 + Q 1 1 1 , 0 ] 

END 



BEGIN 


ELSE 


FOR K <- J STEP 1 . UNTIL N DO 

BEGIN 

Q 1 1 0 , W*K" J+ 1 ] ♦ AIK.J] I Q 1 [ 1 , W ] «• I A [ K , J ] ; 

Q2 [ 0, W ) «• All.*) ; Q2C1.W] <• I A C I > K ] 

END ; 

CIPCQl, 02, N-J+l) ; 

A [ I , J ) <- Q 1 [ 0 , 0 ] ; I A [ I , J ] *■ QIC 1,0] 

END 
END 
END ; 

FOR J «- N STEP -1 UNTIL 1 DO 

BEGIN 

IF F C J ] 4 J THEN 

BEGIN 

K2 «- FIJI J 

FOR K «- J STEP 1 UNTIL N DO 

BEGIN 

TEMP «• A T K , K2 ] > A C K , K2 I * AIK,J] > AlK,JI <• TEMP i 
TEMP «- IA[K,K2J f IAIK.K2] «- IA[K,J] / IA[K,J) «■ TEMP 

END 

END 

ELSE 

end; 

EXIT: 

end; 

PROCEDURE FINDPOLYORDERANDNORMALIZECN, ar, ai, p); 

VALUE n; INTEGER N.P) ARRAY AR.AItO]) 

BEGIN COMMENT A POLYNOMIAL OF OEGREE LESS THAN OR 

EQUAL TO N, WHOSE K-TH POWER COEFFICIENT HAS 
REAL AND IMAGINARY PARTS AR t K ] AND A I C K 3 j> FOR 

K = 0, ...» N, WILL BE EXAMINED BY THIS PROCEDURE. 

THE COEFFICIENTS WILL BE ADJUSTED TO MAKE 
IT A MONIC POLYNOMIAL. I.E., THE COEFFICIENT 
OF THE HIGHEST POWER WILL BECOME A QUANTITY 
WITH MUDULUS UNITY. AND THE TRUE ORDER (DEGREE) 

OF THE POLYNOMIAL WILL BE INSERTED INTO P) 

INTEGER K; REAL T; 

FOR P«-N STEP “1 WHILE ( T* AR t P ) *2 + A 1 [ P I * 2 ) = 0 DO) 
T<-SQRT(T); 

FOR K*0 STEP 1 UNTIL P DO 
BEGIN AR[K]«-AR[K]/T; A I [ K ] «-A I [ K ] /T END 
END OF THE FINDPOLYORDERANDNORMALIZE PROCEDURE; 

PROCEDURE SCALECOEFF ICIENTSfP. AR. AI. SCALE); VALUE P) 

integer p; array ar. aico]; real scale; 

BEGIN COMMENT GIVEN HERE IS A POLYNOMIAL IN THE VARIABLE 
Z WHOSE COEFFICIENT FOR THE K-TH POWER OF Z HAS REAL 

and imaginary parts ariki and aiikj. for k= o, .... p. 

THIS PROCEDURE SCALES THE COEFFICIENTS OF THE 
POLYNOMIAL, DEFINING IN THE PROCESS A NEW POLYNOMIAL 
IN THE VARIABLE ZPRIME, WHERE Z = SCALE x ZPRlME, 

SUCH THAT THE COEFFICIENT OF THE LOWEST ORDER TERM 
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ini the polynomial has modulus unity; 

REAL A/ R/ 1/ TI integer K/Q! LABEL LI K«-0! 

Lt A«-ARCK3*2 + AI[K]*2; 

IF A=0 THEN BEGIN K*KM! GO TO L END! 

SCALE*T«-A*C 1/(2X(P-K) ) ); q«-k; 

FOR K*P"1 STEP -1 UNTIL Q DO 
begin arik]<-arik]/t; aick3«-ai[k3/t; 

TM*SCALE 

END 

END OF THE SCALECOEFFICIENTS PROCEDURE!’ 
procedure getpolyzerosin/ aR/ Al/ EPSILON); 

VALUE N/ EPSILON; REAL EPSILON! INTEGER N! ARRAY AR/ Al[0]! 

COMMENT THIS PROCEDURE FINDS ZEROS OF A POLYNOMIAL 

OF ORDER N. THE COEFFICIENT OF THE HIGHEST POWER OF 
THE VARIABLE MUST BE UNITY. ON ENTRY/ AR [ K ) AND 
A I [ K 3 FOR K = 0, 1/ - - -/ N ARE THE REAL AND 
IMAGINARY PARTS OF THE COEFFICIENTS OF ASCENDING 
POWERS OF THE VARIABLE. ON EXIT/ AR AND AIC1/ ...» N] 

CONTAIN THE ZEROS. NEWTONS METHOD IS USED. 

ITERATION CONTINUES UNTIL THE SQUARE OF THE FRACTIONAL 
CHANGE IN THE ZERO DOES NOT EXCEED EPSILON, AFTER THE 
FIRST ZERO IS FOUND/ THE ORDER OF THE POLYNOMIAL IS 
REDUCED BY DIVISION. ZEROS OBTAINED FROM THE REDUCED 
POLYNOMIAL ARE IMPROVED BY ITERATION WITH THE ORIGINAL 
POLYNOMIAL. THEN THE ORDER OF THE REDUCED POLYNOMIAL 
IS FURTHER REDUCED. ! 

BEGIN REAL X/ Y/ FR, FI/ GR/ GI, U/ V/ W! INTEGER K/ P/ Q! 

ARRAY 0R / BI T 0 : N ] / CR/ Cl/ RR/ RI/ MF[1»N]! REAL T! 

LABEL AGAIN/ GUESSZERO/ ITERATE/ REITERATE/ EXIT! 

BOOLEAN ONCE! INTEGER NDIV2! NDIV2*N DIV 2! 

FOR K «-0 STEP 1 UNTIL NDIV2 DO 

BEGIN T«-AR[Ki; AR t K ] «■ AR C N“K ] ! ARCN-K3M! 

T <■ A I t K 3 ! A I [ K 3 *A I [ N“K 3 ! AIIN-KJ^T 
END OF THE SWITCH AROUND LOOP ON THE INTEGER K! 

N<-N+l! FOR N«-N-l WHILE ARtN] = 0 AND A I C N 3 =0 00 ! 

IF N=1 THEN BEGIN ARC 1 ]«--AR[ 1 ]; A I C 1 3 «■- A I C 1 ] ! GO TO EXIT END! 
BRI03M.0; BI[03«-0! ONCE«-FALSE; 

AGAIN: FUR K*1 STEP 1 UNTIL N DO 

BEGIN BRCK3«-AR[K3! B I [ K 3 <• A I [ K 3 END! 

p«-n; 

GUESSZERO: IF ONCE THEN BEGIN X«-RRCP3! Y«-RICP3 END 

ELSE BEGIN XM-BRC13! YM-BIC1]! 

IF P=1 THEN 

BEGIN X«-XM! Y + Y-l! GO TO ITERATE 
END 

END! 

q<-p; 

FOR K«-l STEP 1 UNTIL Q DO 

BEGIN CR FK 3 <-BR [ K 3 ! C I [ K 3 +B I [ K ] END! 

iterate: frm; fi«-o; 

FUR Km STEP 1 UNTIL Q DO 
BEGIN U*XxFR-YxFI+CR[K)! 

V*XxFI+YxFR+CI[K3! 

FR«-U! F I «- V 

end; 

gr «-q ; gi«-o; 
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FOR KM STEP 1 UNTIL Q-l DO 
BEGIN U«-XxGR-YxGl + CQ-K)xCR[K]^ 

V«-XxGI + YxGR + CQ-K)xCI[K); 
gr*u; gi*v 

end; 

u«-frxgr+fixgi; v*fixgr-frxgi; w«-gr*2+gi*2; 

if w = o then wm; 

u«-u/w; v«-v/w; w«-uxu+vxv; 

u+x-u; v*y-v; w<-2,oxw/cuxUvVxv+xxx+yxy); 

x«-u; y«-v; 

if w>epsilon then go to iterate; 

REITERATE: IF Q*N THEN 

BEGIN FOR K*1 STEP 1 UNTIL N DO 

begin crckimrcki; cickimickj end; 
qVn; go to iterate 

end; 

rrcpkx; rhp]«-y; mf[p)«-fr*2+fi*2; 

IF PM THEN 

begin p*pm; 

for KM STEP 1 UNTIL P DO 
BEGIN 8R[K]*BR[K]+XXBR[K-1]-YXBI[KM]; 
BI[K]<-BI[K]+XXBI[K-1J+YXBR[K-1] 

end; 

GO to guesszero 

end; 

IF not once then 

BEGIN ONCEMRUE; 

for KM STEP 1 UNTIL N DO 
begin u<-rr[K]; v«-riik]j w<-mfcki; 

FOR QM + 1 STEP 1 UNTIL N DO 
IF MFC Q ] >w THEN 

BEGIN RR [ K ] «-RR t Q ] ; R I [ K ] + R I C Q 3 ; MF C K ] <-MF [ Q ] ; 
RR[Q]«-U; RI[Q]<-V; MFCQ]«-W; 

U«-RR[Kj; V<-RICK]; W*MF t K ) 

END 

end ; 

GQ To AGAIN 

end; 

FOR KM STEP 1 UNTIL N DU 

BEGIN AR[K]<-RRCK i; A I [ K ] <-R I [ K J ENO; 

EXIT: 

END OF PROCEDURE POLYZEROS; 

PROCEDURE UNSCALETHEROOTSCP, AR, Al> SCALE); VALUE Pi 
INTEGER P; ARRAY AR » A I C 0 1 ; REAL SCALE; 

BEGIN COMMENT THIS PROCEDURE IS USED IN CONJUNCTION 

WITH THE SCALECOEFFICIENTS PROCEDURE. IT UNSCALES 
THE ROOTS OF THE POLYNOMIAL WHICH WAS SCALED; 

integer k; 

FOR KM STEP 1 UNTIL P DO 

BEGIN AR[K]«-ARCK]xSCALE; AI[K]«-AI[KJxSCAlE end 
END OF THE UNSCALETHEROOTS PROCEDURE; 

PROCEDURE CMPLXLINTRAN(N>AMA>XMX>YMY); 

VALUE n; INTEGER N) ARRAY X M X » YM Y E 0 3 > A M A t 0, 0 ] ; 

BEGIN COMMENT THE INDEX UPPER BOUNDS FOR A. 

IA.X.IX.Y* AND IY ARE ASSUMED TO BE EQUAL 
TO N. THE ENTRIES OF THESE ARRAYS WHICH 
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CORRESPOND to a zero index are not 
REFERENCED BY THIS PROCEDURE, 

CONSIDER THE COMPLEX MATRIX/ S/ WHOSE 
I JTH ENTRY HAS REAL AND IMAGINARY PARTS 
At I / J I AND IACI/J]/ RESPECTIVELY/ FOR I/J 
=1/ .../ N. FURTHER/ LET T AND U DENOTE 
THE COMPLEX VECTORS WHOSE KTH ENTRIES HAVE 
REAL AND IMAGINARY PARTS X[K]> IXtK] AND 
Y t K ] / I Y [ K ] / RESPECTIVELY/ FOR 
K= 1 / ,,,/ N, 

WHERE S IS REGARDED AS A LINEAR 
TRANSFORMATION/ THIS PROCEDURE COMPUTES 
THE IMAGE OF T UNDER S AND STORES IT 
INTO U/ I.E., ST IS STORED INTO U f 
INTEGER k; 

PROCEDURE D0MULTCN/A/IA/B/I8)/ 

VALUE N; INTEGER N* ARRAY A/IA/B/IBCO]/ 

BEGIN COMMENT DOMULT IS DESIGNED TO DO 

THE ROW-COLUMN MULTIPLICATIONS WHICH 
ARE NEEDED IN C MPLXL I NT R AN * 

INTEGER KJ REAL RE/IM/ RE<-lM<-0/ 

FOR K+l STEP 1 UNTIL N DO 

BEGIN kE«-A[KJxB[K]-IA[K]xIB[K]+RE; 

IM«-ACK]xIB[K]+B[K]xIA[K] + IM 
END* AtO]<-RE; IACO]*IM 
END OF THE DOMULT PROCEDURE* 

FOR K«-l STEP 1 UNTIL N DO 

BEGIN DOMULT (N/X/IX/ACK/*]/ I A C K/ * ] )/ 

YtK]<-X[0]* IYtK]*IXCO] 

END OF THE LOOP ON K 
END OF THE, CMPLXLINTRAN PROCEDURE* 

integer procedure mostldcn.a); 

VALUE NJ INTEGER N* ARRAY ACO/OI* 

BEGIN COMMENT A IS ASSUMED TO HAVE INDEX UPPER 

BOUND EQUAL TO Nz AND TO HAVE 8EEN THE TARGET 
MATRIX IN A call OF COSQBUILDER OR CMPLX- 
C0SQ8UILDER. THUS/ THERE EXISTS AN ORDERED 
COLLECTION OF N VECTORS WHOSE ”C OS I NE-SQU AREO* 
MATRIX (SEE THE COMMENTS IN COSQBUILDER 
AND CMPLXCOSQBUILDER ) IS A. 

THIS PROCEDURE INSERTS INTO THE 
IDENTIFIER/ MOSTLD/ THE NUMBER OF THE VECTOR 
WHICH IS MOST LINEARLY DEPENDENT UPON ITS 
NEIGHBOURS. THIS VECTOR IS DETERMINED BY 
first SCANNING THE above-diagonal portion 
OF A TO FIND A PAIR/ CI/J)/ SUCH THAT ACI/J] 

IS AS LARGE AS ANY ENTRY IN THIS PORTION. 

THE VALUE OF THIS ACI/J] IS THEN STORED INTO 
MAXAIJ. 

FOR EACH PAIR CP/Q) SUCH THAT ACP/Q] 
EQUALS MAXAIJ/ THE NORMS OF ROW P AND ROW 
Q OF A ARE COMPARED/ AND THE LARGER NORM/ 
TOGETHER WITH ITS ASSOCIATED INDEX/ IS 
DISTINGUISHED. IN THE CASE OF EQUAL NORMS/ 

THE INDEX DISTINGUISHED WILL 8E THE LARGER OF 
P AND Q. THIS BEING THE CASE/ THE VECTOR 
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WHICH IS "MOST LINEARLY DEPENDENT" UPON ITS 
NEIGHBOURS IS GOTTEN BY CONSIDERING THESE 
PAIRS OF DISTINGUISHED NORMS AND INDICES, THE 
VECTOR CORRESPONDING TO THE LARGEST SUCH 
NORM IS THE ONE CHOSEN, AND IN CASE OF A 
TIE, THE CANDIDATE HAVING THE LARGEST INDEX IS 
SELECTED, IT IS THIS INDEX, THEN, WHICH IS 
STORED INTO THE IDENTIFIER, MOSTLD J 
INTEGER I, J,K,KMAX, INX; REAL M A X A I J, NORM, M A XNOR M! 
INTEGER PROCEDURE M Ax I NX C A, I , J, N, NORM ) i 

value i,j,n; integer i,j,n; real norm; array Ato,oi; 

BEGIN COMMENT THIS PROCEDURE CONSIDERS THE 
SUMS OF THE ENTRIES IN ROWS I AND 
J OF THE MATRIX, A. THE 
LARGER SUM IS STORED INTO NORM, AND 
THE ASSOCIATED INDEX IS STORED INTO 
MAXINX, 

IN THE CASE OF A TIE, THE 
LARGER OF I AND J IS STORED INTO 
THE IDENTIFIER, MAXINX! 

integer k; real nrmi,nrmj; 

NRMI*NRMJ*0; 

FOR K*1 STEP 1 UNTIL N DO 
begin nrmi*ae i,k]+nrmi; 

NRMJ*AE J,K]+NRMJ 

END OF THE LOOP ON K i NQRM*NRMJJ 
IF NRMI>NRMJ THEN 
BEGIN NORM*NRMi; MAXINX*I END 
ELSE 

IF NRMI=NRMJ THEN 

MAXlNX«-( IF I>J THEN I ELSE J) 

ELSE MAXINX*J 

END OF THE MAXINX PROCEDURE; 

maxaij*maxnorm*kmax*o; 

FOR 1*1 STEP 1 UNTIL N DO 

FOR J*I + 1 STEP 1 UNTIL N DO 

IF MAXAI J<NORM*A[ I, J] THEN MAXAI J*NORM! 

FOR 1*1 STEP 1 UNTIL N DO 
FOR J* I + 1 STEP l UNTIL N DO 
IF A[ I»J]=MAXAIJ THEN 
BEGIN INX*MAXINX( A, I, J,N,NORM); 

IF NORM>M AXNORM THEN 
begin maxnorm*norm; KMAX*INX end 
ELSE 

IF NORM=MAXNORM AND INX>KMAX THEN 
KMAX*INX 

END OF THE MAIN SCANNING PROCESS! 

MOSTLD*KMAX 

END OF THE MOSTLD PROCEDURE; 

PROCEDURE CMPLXCOSQBUILDERCN, A,B,C,ROWCOL>; 

VALUE N,ROWCOL,* INTEGER N; REAL ROWCOL! ARRAY A, B, CEO, 01! 
BEGIN COMMENT A, B, AND C ARE ASSUMED TO HAVE 
INDEX UPPER BOUND EQUAL TO N. IT IS 
OF INTEREST TO CONSIDER THE COMPLEX 
MATRIX, S, WHOSE IJTH ENTRY HAS real 
AND IMAGINARY PARTS AEI,J] AND BEI,J], 



RESPECTIVELY* FOR I,J=i, ...» N. S IS 
REGARDED AS INPUT TO THIS PROCEDURE. 

IF ROWCOL="ROWS"* THEN EACH ROW OF S 
WILL BE REGARDED AS A COMPLEX VECTOR WITH 
N ENTRIES. OTHERWISE* THE COLUMNS OF S 
WILL BE SO REGARDED. IN EITHER CASE* AN 
ORDERED SET OF N COMPLEX VECTORS HAS 
BEEN DISTINGUISHED. 

FOR I*J=1* .,.* N THE PROCEDURE STORES 
INTO CCI*J] THE "COSINE" OF THE ANGLE 
BETWEEN THE ITH AND JTH VECTORS IN THE 
DISTINGUISHED SET. HERE THE MODULUS OF 
THE INNER PRODUCT OF TWO VECTORS IS TAKEN 
TO BE EQUAL TO THE PRODUCT OF THE NORMS 
OF THE TWO TIMES THE COSINE OF THE 

angle between them; 
integer i*j*imi; boolean anymore; 

REAL t; LABEL TRANSPOSE* EX I T* DO I T; 

IF CANYMORE<-ROWCOL#"ROWS") THEN 

transpose: for 1*1 step i until n oq 

BEGIN lMl*I-i; FOR J*1 STEP 1 UNTIL IM1 DO 
begin t*aci*j]; aci*j]«-ai j*ii; 
ai'j*i]<-t; t+b[I*j]; 

BCI*J]<-BCJ*I3; B[J*I3*T 

end of the loop ON J 
END ELSE GO TO DOIT; 

IF NOT ANYMORE THEN GO TO EXIT; 

DOIT: FOR 1*1 STEP' 1 UNTIL N DO 

BEGIN IM1*I-1; FOR J*1 STEP 1 UNTIL IM1 DO 
CIJ* I3*MODSQOFlNRPROD 

CN*ACI#*]*B[I**]*ACJ**]*B[J**3); 

CtI*I]«-MODOFINRPROD 

CN*ACI**]*BCI**]*ACI**]*B[I**]) 
END OF THE LOOP ON II 
FOR 1*1 STEP 1 UNTIL N DO 
FOR J*I + 1 STEP 1 UNTIL N DO 
C I J* I ] *C C I * J ] *C [ I * J ] / C C C I * 1 3 xC C J* J ] ) ; 

FOR 1*1 STEP 1 UNTIL N DO C[I*I3*i; 

IF anymore THEN 

begin anymore*false; go to transpose end; 

Exit: 

end of the cmplxcosqbuilder procedure; 

PROCEDURE TRANSPOSECN*A); 
value n; integer n; array aco*o3; 

BEGIN COMMENT A IS ASSUMED TO HAVE INDEX 

UPPER BOUNDS EQUAL TO N. THIS PROCEDURE 
TRANSPOSES THE ROWS AND COLUMNS OF a; 

integer i*j; real t; 

FOR 1*0 STEP 1 UNTIL N DO 
FOR J*I + 1 STEP 1 UNTIL N DO 

BEGIN T*ACI*J3; A [ I * J 3 *A [ J* 1 3 ; A[J*I3*T END 
End OF THE TRANSPOSE PROCEDURE; 

REAL PROCEDURE CMPLXHOMOSOLVER C N* A* I A* B* I B* X* I X ) ; 

VALUE n; INTEGER N* ARRAY a* IA*8* IBC0*03*X* IXC03; 

BEGIN COMMENT ALTHOUGH THE ACTUAL INDEX LOWER BOUNDS 

ARE ZERO* THIS PROCEDURE ONLY REFERENCES ENTRIES 


IN THE ARRAYS A, IA; B; IB; X; AND IX WHICH 
CORRESPOND TO INDICES IN THE RANGE FROM ONE TO 
N. THE MATRIX; 8; IS USED FOR TEMPORARY STORAGE. 

CONSIDER THE COMPLEX MATRIX; U; SUCH THAT 
U C I ; J I HAS REAL ANO IMAGINARY PARTS; ACI;JI 
AND IACI;JJ; RESPECTIVELY. FURTHER; LET T DENOTE 
THE COMPLEX VECTOR DEFINED BY SAYING THAT 
TIK] HAS REAL AND IMAGINARY PARTS; XCKJ AND 
I X T K 3 ; RESPECTIVELY. ASSUMING THAT U IS 
SINGULAR ANO OF RANK CN-1); CMPLXHOMOSOLVER 
ATTEMPTS TO FIND A NON-TRIVIAL SOLUTION TO THE 
EQUATION; UT=0. SUCH A SOLUTION IS; OF COURSE; 
UNIQUE UP TO MULTIPLICATION BY A SCALAR. 

THE PROCEDURE BEGINS BY THROWING OUT THE ROW 
OF U WHICH ,IS MOST LINEARLY DEPENDENT UPON ITS 
NEIGHBOURS. THIS LEAVES A SET OF (N-l) EQUATIONS 
IN N UNKNOWNS OF THE FORM VT=0; WHERE V IS 
THE MATRIX GOTTEN BY THROWING OUT A ROW OF U. 

NEXT; THE COLUMNS OF V ARE EXAMINED, AND AN 
(N-l) BY CN-1) MATRIX, W, IS FORMED BY REMOVING 
THE COLUMN OF V WHICH IS MOST LINEARLY DEPENDENT 
UPON ITS NEIGHBOURS. LETTING THIS COLUMN BE 
DENOTED BY Y, THE PROCEDURE THEN SOLVES THE SYSTEM 
OF EQUATIONS, WZ=-Y; WHERE Z DENOTES THE VECTOR 
GOTTEN FROM T BY deleting THE ENTRY WHICH corres- 
ponds TO THE COLUMN; Y. 

FINALLY; THE VECTOR; T; IS FILLED WITH VALUES 
FROM Z; WHEREVER POSSIBLE, AND THE ENTRY CORRES- 
PONDING TO THE COLUMN; Y; IS GIVEN THE VALUE 
ONE. THIS; THEN, IS THE SOLUTION TO THE 
EQUATION; UT=0. 

TO GIVE SOME INDICATION AS TO THE AMOUNT 
OF CANCELLATION INVOLVED IN COMPUTING THE DETERMI- 
NANT OF W; ABOVE; THE PROCEDURE COMPUTES THE PRODUCT 
OF THE MODULI OF THE NORMS OF THE RUWS OF W, 

AND OF THE COLUMNS OF W. THE AVERAGE OF THESE 
TWO PRODUCTS IS THEN COMPUTED; AND THE DETERMINANT 
OF W, DIVIDED BY THIS AVERAGE; IS INSERTED 
INTO THE IDENTIFIER; CMPLXHOMOSOLVER. 

PROCEDURES REFERENCED 8Y CMPLXHOMOSOLVER 
ARE : MUDOF INRPROD; C MPLXC OSQBU I LDE R; 

MOSTLD; CMPLXLINTRAN, TRANSPOSE; AND C MPLX I N VER SE;' 
INTEGER I;J;K;LOROW;LDCOL,NMl; 

REAL NRMR,NRMC;NGRM;M0DET; 

PROCEDURE MOVECTORCN; A;B); 

VALUE N; INTEGER N; ARRAY A;B[OI; 

BEGIN COMMENT A AND B ARE ASSUMED TO HAVE INDEX 

UPPER BOUNDS EQUAL TO N. THIS PROCEDURE 

COPIES A C K 3 INTO BCKI FOR K = 0, ...; N) 

INTEGER k; 

FOR K«-0 STEP 1 UNTIL N DO B[KJ«-A[K] 

END OF THE MOVECTOR PROCEDURE) 

LABEL EXIT) 

COMMENT HERE THE EXECUTABLE STATEMENTS BEGIN) 
CMPLXHOMOSOLVER<-l) 

IF N = 1 THEN 
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begin xiiim; ixcix-o; go to exit end; 

CMPLXCOSQBUILOERCN, A, I A, 8 , "RO W S" ) ! LDROW*MOSTLO(N»B) ; 
COMMENT LDROW NOW EQUALS THE NUMBER OF THE ROW 
IN THE MATRIX, U, WHICH IS MOST LINEARLY 
OE p ENDENT UPON ITS NEIGHBOURS,' 
MOVECTORCN,A[LDROW,M,ACO,*)); 

MOVECTQRCN, IACLQROW»*],IACO,*3) J 
FOR K<-LDROW + l STEP 1 UNTIL N DO 

BEGIN movectorcn, ack,*i, ack-i,*3 ); 

MOVECTORCN, IACK,*], IACK-1,*) ) 

END OF THE K LDOP; 

FOR KM STEP 1 UNTIL N DO A[N»K3MA[N,K)4-o; 

COMMENT NOW THE LDROW” TH ROW OF U HAS BEEN 
COPIED INTO THE ZERO-TH ROW OF U, THE 
REMAINING ROWS HAVE BEEN SHUFFLED DOWN, AND 
THE N-TH ROW HAS BEEN FILLED WITH ZEROES; 
CMPLXCOSQBUILOERCN, A, I A, B, "COLUMNS") > 
LDCOL«-MOSTLDCN,B); NMUN-U 
FOR 14-1 STEP 1 UNTIL NMl DO 

begin movectorcldcol,aci,*],bci,*]); 
movectorcldcol, i a e I,* ], IBC I,*] ) ; 

FOR J4-LDCOL+1 STEP 1 UNTIL N DO 
BEGIN B[ I, J-l ]*A[ I, Ji; 

IB[I,J”13MA[I, J3 
END OF THE J LOOP 

end of the i loop; 

COMMENT NOW LOCOL IS THE NUMBER OF THE COLUMN 
OF THE MATRIX, U, WHICH IS MOST LINEARLY 
DEPENDENT UPON ITS NEIGHBOURS. COLUMNS ONE 
THRU (LDCOL-1) OF U HAVE BEEN COPIED INTO 
THE CORRESPONDING COLUMNS OF THE MATRIX 
WITH REAL AND IMAGINARY PARTS B ANO IB, 
RESPECTIVELY. FURTHER, COLUMNS CLDCOLM) THRU 
N OF U HAVE BEEN COPIED INTO COLUMNS 
LDCOL THRU CN-1) OF THE (8, IB) MATRIX! 
NRMR«-NRMOi; T K ANSPO SE < N , B ) ! TRANSPOSE ( N, I B ) ! 

FOR KM STEP 1 UNTIL NMl DO 
NRMC«-NRMCxMODOFINRPROD 

(NMl,BtK,*3,lBCK,*),B[K,*],IBCK,*)); 

NDRM«-(S0RTCNRMC)+SQRTCNRMR))/2; 

COMMENT NOW THE PRODUCT OF THE SQUARES OF THE 
MODULI OF THE NORMS OF THE ROWS OF (B,IB) 

HAS BEEN STORED INTO NRMR. THE CORRESPONDING 
PRODUCT FOR THE COLUMNS OF C8,IB) HAS BEEN 
STORED INTO NRMC. 

THE AVERAGE OF THE SQUARE ROOTS OF NRMR 
AND NRMC HAS BEEN STORED INTO NORM! 
M0DET«-CMPLXINVERSE(NM1,B, IB); 

FOR K*1 STEP 1 UNTIL NMl DO 
BEGIN Bro»K3<-”A[K, LDCOL)! 

IBrO,K3«-“IA[K,LDCOL3 
END OF COPYING OVER THE MQSTLD COLUMN! 
CMPLXLINTRANCNM1,B, IB,BIO,*], IBCO,*3,X, IX); 

FOR K*NM1 STEP ”1 UNTIL LDCOL DO 
BEGIN xrK+l3«-XCK3! I X [ K+ 1 3 «• I X t K 3 END! 

XCLOCOL3M! I X C LDCOL 3 4-0! 



cmplxhomosolver*modet/norm; 

COMMENT NOW THE SOLUTION TO UT = 0 HAS BEEN 

STORED INTO T, AND THE DETERMINANT-OVER-NORM 

quantity has been inserted into the identifier, 
cmplxhomosolver. what remains to be done 
is the restoring of rows one thru n of u; 

FOR K*NM1 STEP "1 UNTIL LDROW DO 
begin movectoRcn,a[k,*],a[k+i,*3); 

MOVECTORCN, IACK,*], IACK+1,*]) 

end; 

movectopcn,A[o,*3,A£ldrow,*3); 

M0VECT0R(N,IA[O,*3,IA[L0R0W,*])i 

EXIT: 

end of the CMPLXHOMOSOLVER procedure; 
integer procedure getransientsolution 

CM, N, MUVEK, N II VEK,ALFA, BETA, GAMMA, A, IA,B, IB, CMTX, ICMTX, 

POLY,MODE»EPS); value n, poly, mode, eps; boolean poly, mode; 

INTEGER M,n; ARRAY MUVEK, NUVEK C 0 3 , 

ALFA, BETA, GAMMA, A»IA,B, 18, CMTX,ICMTX[0, 03; REAL EPS3 
BEGIN COMMENT THE MATRICES, CMTX AND ICMTX, MUST 

HAVE 2N ROWS OF N ELEMENTS EACH, I.E., THEY 
MUST BE 2NXN MATRICES. THE OTHER MATRICES 
MUST BE NxN, AND THE VECTORS, MUVEK AND NUVEK, 

MUST HAVE UPPER BOUNDS EQUAL TO 2xn. THE 
MATRICES, A, IA, B, AND IB ARE USED FOR 
temporary storage. 

WHERE G IS THE MATRIX OF DIFFERENTIAL 
OPERATORS DEFINED BY GCI,J3 = ALF A [ I , J 3 xo*2 
+ BETA C I , J 3 xD + GAMMACI,J3, FOR I, J=l, ..., N 
( D DENOTES DIFFERENTIATION WITH RESPECT TO 
TIME )» THIS PROCEDURE FINDS THE M INDEPENDENT 
SOLUTIONS TO THE EQUATION GQ=<NULL VECTDR>. 

OF COURSE, M < 2 N , AND THE VALUE OF M IS 
ALWAYS STORED INTO THE PARAMETER, M, PRIOR 
TO EXIT. 

THE BASIC SOLUTIONS TO THE ABOVE EQUATION 
HAVE THE FORM C x EXPC LAMBDA x TIME ), 

WHERE C IS A VECTOR WITH N COMPLEX ENTRIES, 

AND LAMBDA IS A COMPLEX NUMBER WITH REAL AND 
IMAGINARY PARTS, MU AND NU, RESPECTIVELY, THE 
PROCEDURE COMPUTES ALL SUCH VECTORS, C, AND 
STORES THEM AS ROWS ONE THRU M OF THE 
COMPLEX MATRIX WITH REAL AND IMAGINARY PARTS, 

CMTX AND ICMTX, RESPECTIVELY. IN EACH CASE, 

THE CORRESPONDING LAMBDA IS STORED INTO 
THE CORRESPONDING POSITION OF THE COMPLEX 
VECTOR WHOSE REAL AND IMAGINARY PARTS ARE 
MUVEK AND NUVEK, RESPECTIVELY. 

IF THE PROCEDURE IS SUCCESSFUL IN DOING 

its work, then a zero is inserted into the 
identifier, getransientsolution, prior to 

EXIT. OTHERWISE, THE INDEX CORRESPONDING 
TO THE VECTOR, C, WHICH WAS BEING COMPUTED 
AT THE TIME OF THE HANGUP WILL BE INSERTED 
BEFORE EXITING. 

THIS PROCEDURE MAKES EXPLICIT CALLS ON 
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GETDETPOLY, FINDPOLYORDERANDNORMALIZE/ 

SCALECOEFF ICIENTS, GETPOL YZEROS/ UNSCALE- 

theroots, and cmplxhomosolver; 

INTEGER I,J,K/P; REAL SCALE, REL/IML/AIJ/BIJ! 

label exit.eol; boolean stable; 

COMMENT here begin the executable statements; 

GETDETPnLYCN, ALFA, BET A, GAMMA, MUVEK); 

COMMENT NOW MUVEK CONTAINS THE COEFFICIENTS 
OF THE DETERMINANT POLYNOMIAL! 

p*a; 

FOR I «-8 STEP -1 UNTIL 0 00 

IF MUVEK [ I ] =0 THEN P<-I-l ELSE GO TO EOL; 

EOL t IF ROOLEANCP) THEN 

begin writecprimary.fmtodd); 

IF POLY OR MODE THEN WR I TE C SEC NDR Y , FMTODD ) ; 

END else 

begin for K«-0 STEP 1 UNTIL P DO 
NUVEKtK]«-MUVEKCP-Ki; 

IF NUVEK [01 < 0 THEN 
FOR K *0 STEP .1 UNTIL P DO 

begin nuveklki^-nuvekcki; muvekiku-muvekcki; end; 
routhhc cmtx,p,nuvek,rr, stable, row >; 
WrtlTE(PRIMARY»SWITFMTtI<- REALC STABLE) I/SWITLSTI II 
IF POLY OR MODE THEN 

WRITECSECNDRY, SWITFMTCI 3/SWITLSTC I ] ); 

end; 

IF ROUTH THEN GO TO EXIT! 

IF ORDER THEN 

for i«-odi + i step i until e do muveki i ]«-o; 

IF POLY THEN WR I TE C SEC NDR Y, FM TPOL Y , 

FOR K *-0 STEP 1 UNTIL 8 DO MUVEK t K ) ) ; 

FOR K «• 0 STEP 1 UNTIL 2xN DO NUVEK[K]<-0,' 
FINDp0LY0RDERANDN0RMALIZLC2xN»MUVEK#NUVEK»P); 
SCALECOEFFICIENTSCP, MUVEK, NUVEK, SCALE); 

GETP0LY7ER0SCP/ MUVEK, NUVEK/ EPS ); 

UNSCALETHEROOTSCP, MUVEK/ NUVEK / SCALE); 

COMMENT NOW MUVEK AND NUVEK CONTAIN THE 

REAL AND IMAGINARY PARTS/ RESPECTIVELY/ OF 
THE ROOTS OF THE DETERMINANT POLYNOMIAL. THESE 
ROOTS ARE, OF COURSE, THE LAMBDAS MENTIONED 
IN THE MAIN COMMENT, ABOVE. 

NEXT/ ALL SUCH ROOTS WITH MOOULUS ZERO 
WILL BE THROWN OUT/ AND THE M REMAINING 
ONES WILL BE SHUFFLED DOWN IN THE MUVEK- 

nuvek pair; m<-p; 

FOR K*P STEP -1 UNTIL 1 DO 
IF MUVEK[K]*2+NUVEK[KJ*2=0 THEN 

begin m+m-i; 

FOR J«-K + l STEP 1 UNTIL P DO 
BEGIN MUVEK[J-1]«-MUVEK[J]; 

NUVEKCU-1 I+NUVEKC J3 
END OF THE SHUFFLEDOWN 
END OF ZERO MODULUS CASE; 

COMMENT NOW M IS PROPERLY SET UP/ AND THE 

NON-ZERO ROOTS OF THE DETERMINANT POLYNOMIAL 



ARE THE ONE THRU M"TH ENTRIES OF THE 
MUVEK-NUVEK PAIR; 

IF NOT MODE THEN 

begin getransientsolution«-o; go to exit; end; 


FOR KM STEP 1 UNTIL M DO 

BEGIN COMMENT EACH PASS THRU THIS LOOP CAUSES 
THE "C-VECTQR" CORRESPONDING TO THE 
LAMBDA WITH REAL AND IMAGINARY PARTS# 

MUVEKIK] AND NUVEKCK], RESPECTIVELY, 

TO BE STORED AS THE K-TH ROW OF 

THE COMPLEX MATRIX WITH REAL AND IMAGINARY 

PARTS, CMTX AND ICMTX, RESPECTIVELY; 

REL«-MUVEKIK j; I ML«-NU VEK C K ] ; 

for im step i until n do 

FOR JM STEP 1 UNTIL N DO 

BEGIN A[ I,J]MREL*2"IML*2)xCAIJ«-ALFAC I , J ] ) 

+ CBI J«-8ETAU# J] )*REL+GAMMAC I, J]J 
IA[I>J]«-(AIJxRELx2 + BIJ)xIML 
END OF SETTING UP A AND IA; 

IF CMPLXHQMOSOLVERCN, A, I A,B, IB, 

cmtxck,*i,icmtxck,*]) < i.oe-u then 
begin getransient$dlution«-k; 

GO TO EXIT 

END OF THE HANGUP CASE 

end of the loop on k; 
getransientsolution«-o; 
exit: 

END OF the GETRANSIENTSOLUTION PROCEDURE; 

COMMENT ********** EXECUTABLE STATEMENTS **********; 

FOR I M > ?, 3 DO TOmMIMECl); 

EOFBOOL <- FALSE; Ci«-32,17 x 12; P 1 2<- C 2* ( P I «■ ARCT AN ( 1 ) x4 ) ) ; 

READCCRCNO],/, STRING)) 

IF STRING = " S I G F I G ” THEN 

BEGIN READCCR,/, STRING, EPS),’ EPS M 0* C -2xEPS ) ,* END ELSE EPSM. 00-21; 
READCCRCNO),/, STRING)) 

IF (OROER*STRING = "ORDER")THEN READCCR,/, STRING, ODD; 

READCCRCNO],/, STRING): 


IF C R DU TH «• STRING = "R0UTH") THEN READCCR); 

READCCR, /,L, LI, L2,W, IP, IT); RAD <• 180/Pi; POLY«-MUDE«-F ALSE) 

ALAB: READCCR,/, WO, DW,WM); RE AD C C R, /, K 1 X, K2X, K 1 Y, K2 Y ) ; 


READCCR, /,C1X,C2X,C1Y,C2Y); READCCR,/ 
READCCR, /,R1X,R2X,R1Y,R2Y); 

BLABS READCCRCNO],/, STRING)! EOF]; 

IF STRING 5 "POLY" THEN BEGIN POLYMRUE 
IF STR I NG®”MODE” THEN BEGIN MODE>TRUE 
GO TO process; 

EOF: EDFBOOL* TRUE) 

PROCESS: writecprimary,fmtecho 

IF ROUTH THEN POLY«-MODE*F ALSE,‘ 

IF POLY OR MODE THEN 

BEGIN WRITECSECNDRY,FMTECHO,LSTECHO),* 
IF POLY THEN 

BEGIN WRITECPRIMARY,PLYECHO); WR 
IF MODE THEN 

BEGIN WRITECPRIMARY,MQDECHO); WR 
WRITECSECNDRYCDBL] ); 


,D1X,D2X,D1Y,D2Y); 

poly*mode«-false; 

; READCCR); GO TO BLAB) END; 

; readccr); go to blab; end; 
,lstecho); 

ITECSECNDRY,PLYECH0); END; 

itecsecndry,modecho); end; 
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END OF THE POLY MODE ECHO; 

writecprimaryidbl i ) ; 

M«- W/G ; DM1 «- WM1 / 

rpp <■ ip / m ; 

RP • Rpp/ (LX L 
Lll ♦ LI / L ; 


K 1 XX 
K1YY 
C1XX 
C1YY 
R 1 XX 
R1YY 
D 1 XX 
D1YY 


; DM2 «■ WM2/G ; 

RT T«- IT / M ; 

) ; RT «■ RTT / ( LX L ) ) 

L22 <• L2 / L ; 

K1X / M ; K2XX «■ K2X /M ; 

K1Y /M ; K2YY ♦ K2Y /M i 

M ; C2XX <• C2X / M ; 

M ; C2YY • C2Y / M 

M ; R2XX «■ R2X / M l 

M ; R2YY «■ R2Y /Mi 

M ; D2XX «■ D2X / M ; 

M ; D2YY ♦ 02 Y / M ; 


C1X 
ClY 
R 1 X 
R1Y 
D 1 X 
D1Y 


FOR W «- WO STEP DW UNTIL WM DO 

begin write(PRimary[noi» fmtspd,w); j<- o; i«-i; whrlbol«-false; 

IF mode or POLY THEN WRITE(SECNDRY[NO],FMTSPD*W); S+WXPI2; 
FOR R<-L22,L11»0,0,0,0,L22>L11>-RT»RT»0,0,0,0,-RT»RT 00 

BEGIN IF J = 4 THEN BEGIN J«- OiI«-I + i; END; 

a[ i j. j«-j+i ]«-r; 

end of the a matrix setup; j<- o; im; 


FOR R«-ClXX,C?XXj.01YY,D2YY,DlXX,D2XX,ClYY,C2YY> 
-C1 XXxLU»C2XXxL22»-(RPxS + D1YYxL11)» 
RPxS+D2YYxL22/RPxS-D1XXxL11,-(RPxS-D2XXxl22)> 

-CIYYxLU, C2TYXL22 DO 

begin if j=4 then begin j + o;i+i+i; end; 

b ( l>u<-j + n«-R; 

END OF THE B MATRIX SETUP; J«- O; I + i; 

FOR R<-KlXX,K2XX,RlYY>R2YY,RlXX,R2XX>KlYY,K2YY> 

-KlXXxLll, K2XXxL22» -R 1 Y YxL 1 1 , R2 Y YxL22, 
-RlXXxLU»R2XXxL22»-KlYYxLll»K2YYxL22 DO 
BEGIN IF J = 4 THEN BEGIN J<- OJUI + 1) END; 

ct i, j«-j + i i«-r; 

END OF the C MATRIX SETUP; 

IF I* GETRANSIENTSOLUTION 

(M»4,MUVEK>NU'/EK>A>B,C>AR,AI»BR>BI>CMTX>ICMTX, 
POLY,MODE>EPS ) * 0 THEN 
BEGIN WRITE(PRIMARY,ERRFMT,I); 

writecprimarycpagei ); 

IF MODE OR POLY THEN 

begin writecsecndry>errfmt,d; writecsecndryipagei j; end; 

IF EOFBOOL THEN GO TO EXIT; GO TO ALAB; 

end of the error quit; 
if routh then go to slp; 
write(primary,fmtroot,lstroot;; 

4KITE(‘4HRARYr* ALL WHRL»L STALL); 
WRlTE(pRlMARY*FMTFREQ>LSrFREQ); 

FUR I<-1 STEP 1 UNTIL M DO 
IF MUVEKCI] > 0 THEN WHKLBOL* TRUE 
ELSE 

BLANK (WHRARYT 11,1-1); 

IF WHRL80L THEN 

BEGIN WRITECPRIMARY,FMTWHRL); WRITE(PRIMARY,15,WHRARYC*I) end; 
IF MODE OR POLY THEN 
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I 



BEGIN WRITECSECNDRY.FMTRQOT.LSTROOT); 
WR1TECSECNDRY*FMTFREQ,LSTFREQ>> 

IF WHRLBOL THEN 

BEGIN WRITECSECNDRY.FMTWHRL); 

WRITECSECNDRY. 15.WHRARYC*] >; HR I TE ( SECNDR Y [ DBL ] ) f 
end of the whril secondary write; 

IF MODE THEN 

begin writecsecndry. fmtmodej; 

FOR K «■ 1 STEP 1 UNTIL M DO 

writecsecndry»fm2 .lstmode); writecsecndrycdbli i; 
end; 

END OF the POLY MODE PRINT OUT; WR I TE ( PR I MAR Y L DBL I ) ; 

SLPs 

END OF the speed loop; 

IF NOT EOFBOOL THEN 

BEGIN WRITECPRIMARYCPAGE] ); 

IF POLY OR MODE THEN 

writecsecndryipagei >; 
go to alab; 

END OF the processing; 

EXIT: time AND a TEC TO . PR I M AR Y . " G I VTME"); 

IF POLY or MODE THEN TIMEANDATECTO.SECNDRY."GIVTME">; 

END OF THE ROTSTAB PROGRAM. 

ARCTAN IS SEGMENT NUMBER 0030. PRT ADDRESS IS 0246 
EXP IS SEGMENT NUMBER 0031. PRT ADDRESS IS 0227 
LN IS SEGMENT NUMBER 0032. PRT ADDRESS IS 0226 
SORT IS SEGMENT NUMBER 0033. PRT ADDRESS IS 0220 
UUTPUTCW) IS SEGMENT NUMBER 0034. PRT ADDRESS IS 0202 
BLOCK CONTROL IS SEGMENT NUMBER 0035. PRT ADDRESS IS 0005 
INPUTCW) IS SEGMENT NUMBER 0036. PRT ADDRESS IS 0250 
X TO THE I IS SEGMENT NUMBER 0037. PRT ADDRESS IS 0230 
GO TO SOLVER IS SEGMENT NUMBER 0036. PRT ADDRESS IS 0265 

ALGOL WRITE IS SEGMENT NUMBER 0039. PRT ADDRESS IS 0014 

ALGOL READ IS SEGMENT NUMBER 0040. PRT ADDRESS IS 0015 

ALGOL SELECT IS SEGMENT NUMBER 0041/PRT ADDRESS IS 0016 

COMPILATION TIME = 296 SECONDS. 

NUMBER OF ERRORS DETECTED = 000, LAST ERROR ON CARD * 

NUMBER OF SEQUENCE ERRORS COUNTED = 0. 

NUMBER OF SLOW WARNINGS = 0. 

PRT SIZE= 189; TOTAL SEGMENT SIZE= 2783 WORDS. 

DISK STORAGE REQ • = 1 1 9 SEGS.; NO. SEGS.= 42. 

ESTIMATED CORE STORAGE REQUIREMENT = 32000 WORDS, 
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TABLE D-I 


L = 8.0000INCH 

W = 24.5900LB 


L 1 = 4.0000INCH 

IP= 0.G496LB-IN-SEC2 


L 2= 4.0000INCH 

1 T= '1.7400LB-IN-SEC2 


K 1 X= 220000, OOLB/IN 
C1X* l3.tiOLb.SEC/lM 

K 1 X s -19350. OOLB/IN 
U1X= O.OOOOLb. SEC/IN 


K2X= 220000, OOLB/IN 
C2X= 13. 80LB. SEC/IN 

R2X= -19350, OOLB/IN 
D2X= O.OOOOLB. SEC/IN 


K1 Y= 220000. OOLB/IN 
C1Y = 13. tiOLB. SEC/IN 

R 1 Y = 19350. OOLB/IN 

D1Y= O.OOOOLB. SEC/IN 


K2Y= 220000. OOLB/IN 
C2Y = 13. &OLB. SEC/IN 

R 2 Y = 19350. OOLB/IN 

D2Y= O.OOOOLB. SEC/IN 


THE COEFFICIENTS OF THE DETERMINANT PULYNUMIAL WILL BE GIVEN. 
THE MOUL SHAPE VECTORS WILL BE GIVEN. 


SPEED = 450 HP S 


STABLE 


THE COEFFICIENTS OF THE DETERMINANT POLYNOMIAL ( IN ASCENDING ORDER ) ARES 


1.445040+26 3.648150+22 1,158880+20 

2. 13374P+16 

3.34749P+13 

4,058580+094118158.95352 

250,33871 

0.18217 

THERE ARE 8 

CHARACTERISTIC ROOTS, WITH 

real and imaginary parts as 

FOLLOWS! 




REAL 

-40,90499 -212,68812 

-100,78335 

-332.51083 

-100,78335 

-212.88812 

-332.51083 

-40.90499 

IMAG 

2049 . 996 7 4 -1969.40064 

-2621,84609 

-2621 ,84606 

2621 .84609 

1969.40064 

2621.84608 

-2049.99874 

THE NATURAL 

FREQUENCIES ( IN CPS ) ARE 1 








326.27 -313.44 

-417.28 

-417.28 

41/ ,28 

313.44 

417.28 

-326.27 


THE NAIUKAL FREQUENCIES ( IN RPM ) ARES 

18800,4 19576.0 25036.8 

THE MOUE SHAPE VECTORS ARE AS FOLLOWS: 
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MOUE 1 ( natural frequency 


3.262670+02 CPS ) 


VECTOR UF REAL PARTS -0.909223690 1,000000000 0.315218401 

VECTOR OF IMAG PARTS -0.135858846 0.000000000 -0,109729704 

MODE 2 C NATURAL FREQUENCY = -3.134400+02 CPS ) 

VECTOR OF REAL PARTS -0.897467828 1.000000000 0.262098593 

VECTOR UF IMAG PARTS -0.128358638 0.000000000 -0,021025111 

....... MOUE 3 ( NATURAL FREQUENCY = -4.172600+02 CPS ) 

VECTOR UF REAL PARTS 2.241921886 1.000000000 -0.019012139 

VECTOR OF IMAG PARTS -0,052257765 0,000000000 0.832758901 

MODE 4 C NATURAL FREQUENCY = -4.172800+02 CPS ) 

VECTOR UF REAL PARTS 2.199579545 1.000000000 0.020780626 

VECTOR OF IMAG PARTS -0.905894399 0.000000000 -0.763201164 

MOOt 5 ( NATURAL FREQUENCY = 4.172600+02 CPS ) 

VECTOR OF REAL PARTS 2.241921885 l.OOOOUOOOO -0.019012140 

VECTOR OF IMAG PARTS 0.052257767 0.000000000 -0.832758897 

MODE 6 c NATURAL FREQUENCY = 3.134400 + 02 CPS ) 

VECTOR OF REAL PARTS -0.897487828 1.000000000 0.262098593 

VECTOR OF IMAG PARTS - 0.126358638 O.OOOOUOOOO 0.021025111 

MODE 7 ( NATURAL FREQUENCY o 4,172600+02 CPS ) 

VECTOR UF REAL PARTS 2.199579543 1.000000000 0,020780822 

VECTOR UF IMAG PARTS 0.905894399 0.000000000 0.763201165 

MODE 8 C NATURAL FREQUENCY = -3.262670 + 02 CPS ) 

VECTOR OF REAL PARTS -0.909223690 1.000000000 0.315218401 

VECTOR OF IMAG PARTS 0.135858847 0.000000000 0,109729704 


-0.827592651 

-0.112157331 


-0,861462049 

-0.903715198 


0,505164903 

0.140161136 


0.418771000 

-0.084746540 


0.505164902 

-0,140161136 


-0.861462048 

0.903715198 


0.418770999 

0.084746540 


-0.827592651 

0,112157333 
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TABLE D-I. - Continued. 

L = a_.ooooi.Ncti L-ts a^oaomoi. L2= 4.t)0dfl.lJNCH 

W= 24.5900.U3 1P.= 0.0456LB.-.IN-SEC2 IT= 1 . 7400LB- IN-SEC2 

KiX= 220000. 00LB/IN K2X= 220000 . QOLtt/ IN _K.lt= 220000., OOLB/IN K2Y= 220000 . 00UB/ 1 N 

C1X= 50. OOLB. SEC/IN C2X= 50 . OOLB . SEC/ I N C1Y= 50 . OOLB . SEC / IN C2Y= 50 . OOLB . SEC/ IN 

B1X= -80000. 00L8/IN R2X = -80000 . OOLB/ IN R 1 Y = BJLO.OO .OOLB/IN R2Y = 80000 , OOLB/ IN 

01X= O.OOOOLB. SEC/IN D2X = 0 . OOOOL B . SEC/ I N D1Y= 0 . OOOOLB . SEC / IN D2Y= 0 . OOOOLB . SEC/ IN 


SPEED = 450 BPS STABLE 

THEBE ABE 8 CHAKACTERISTIC ROUTS. RITH REAL AMD IMAGINARY PARTS AS FQLLOR_Si 


REAL 

-819.86122 

-2.9.3 ..5 9024 

.-99.67.901 

-127.6.-3 2621 

-127.6.^.32623. 

-293,56024 

-819,86122 

-99.67901 

IMAG 

1951.15220 

2555.950/6 

-2031.75030 

2555.95076 

2555.95076 

2555.95076 

-1951.15220 

2031.75030 

THE NATURAL 

FREQUENCIES 

C. IN. CPS . 3 AR£ ! 








310.54 

406.79 

-323.36 

406,79 

-406., 79. 

-40.6.79 

-310.54 

323,36 

THE NATURAL 

FREQUENCIES 

C IN RPM 3 ARE: 








18632.1 

19401 .6 

24407.5 








L = 8.0000INCH 

W= 24.5900LB 

t— * 

V 

ii 

ii 

o 

4.0000IN CH L2« 

0496L8-.IN-SEC2 IT® 

4.0000INCH 

1 .7400L8-IN-SEC2 

MX® 

22U000, OOLB/IN 

K2X = 

220000.00*. 8 / IN 

K 1 Y = 

22Q000. OOLB/IN 

K2Y® 

220000. OOLB/IN 

C 1 X® 

50.00LB.SEC/IN 

C2X = 

50. OOLd. SEC/IN 

Cl Y = 

50 , OOL B • SEC / 1 N 

C2Y® 

50. OOLB. SEC/IN 

K 1 X® 

-102500. OOLB/IN 

R2X = 

-102500. OOLB/IN 

R1Y = 

102500, OOLB/IN. 

R2Y = 

102500. OOLB/IN 

01 X* 

0.0 000 LB. SEC/IN 

D2X = 

0.0000L8. SEC/IN 

D1Y = 

O.OOOOLB. SEC/IN 

D2Y = 

O.OOOOLB. SEC/IN 


SPEED = 450 UPS STABLE 

THEKE ARE 0 CHARACTERISTIC ROUTS > WITH REAL AND IMAGINARY PARTS AS FOLLOWS! 


REAL 

-919.07018 

-162.31176 

-1407,59470 

-1407.59470 

-0,47005 

-919,07018 

-162.31176 

-0.47005 

IMAU 

1971,45664 

-2584.39921 

2584.39921 

-2584.39921 

2052.05674 

-1971.45864 

2584.39921 

-2052.05674 

THE NATURAL 

FREQUENCIES 

C IN CPS ) ARE ! 








31 3.77 

-411,32 

411 . 32 

-411.32 

326,59 

-313.77 

411,32 

-326.59 


THE NATURAL FREQUENCIES C IN RPM ) ARE! 

18026,0 19595.7 24679.1i 
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TABLE D-I. - Continued. 



L = 8.0000 INCH 

H = 

4.0000INCH 

L2 = 

A • 0000 INCH 


W= 2 4 . 5 9 0 0 L 8 


IP= 0. 

0496L8-IN-SEC2 

I T= 1 . 

7400LB-IN-SEC2 

KlX = 

220000. OOLB/IN 

K2X = 

220000. OOLb/IN 

K 1 Y = 

220000. OOLB/IN 

K 2 Y = 

220000 , OOLB/ I N 

L 1 X = 

50. OOLB. SEC/IN 

C 2 X = 

50. OOLB. SEC/IN 

Cl Y = 

50.00LB.SFC/IN 

C2Y = 

50. OOLB. SEC/IN 

rt 1 X = 

“12/000. OOLB/IN 

R2X = 

-127000. OOLB/IN 

R 1 Y = 

12/Q00, OOLB/IN 

R2Y = 

127000, OOLB/IN 

UlX = 

O.OOOOLo.SEC/IN 

D2X = 

O.OOQOLB. SEC/IN 

D 1 Y = 

O.OOOOLB.SFC/IM 

D2Y = 

O.OOOOLB. SEC/IN 

SPEED = 453 HP S 



UNSTABLE 

RR = -5. 

101593+14 

ROW = 5 


THEwE AKL 0 CHARACTERISTIC ROUTS, WITH HEAL AND IMAGINARY PARTS AS FOLLOWS s 


REAL 

-1545 .82495 

104 , 10965 

104 . 10965 

-24.28149 

-1545 .62498 

-1023,64988 

-1023,64986 

-24,28149 

IMAG 

2621 .07962 

-2078.4/786 

2076.4778g 

- 2 6 9 1 . u7 9 6 2 

-'2621.07962 

1997.87976 

-1997.87976 

2621.07962 

THE NATURAL 

FREQUENCIES 

( In CPS ) ARE: 








417.16 

-3 50. 80 

330.80 

-417.16 

-41Z.16 

317.97 

-317.97 

417.16 


THE NATURAL FREQUENCIES C IN RPM ) ARE! 

1907B.3 1 tl 4 1) . 0 25029.5 

THE WHIRL RATIOS ARES 

-0.73511 0,73511 
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L = 


8.U000 inch 


a .OOOOINCH 


a.ooooiNCH 


L 1 = 


L2 * 


W = 24.5900LH IP = 0.0496L8-IN-SEC2 IT= 1 . 74 UOLR- IN-SEC2 


Kl X = 

22UQ00. OOLB/IN 

K2X = 

2200U0.00LB/IN 

K 1 Y = 

220000, OOLb/IM 

K2Y = 

220000. OOLB/IN 

cix= 

50.QOL3.SFC/Iw 

C ?X = 

50. OOLri. SEC/lN 

C 1 Y = 

50. OOLfl. SEC/IN 

C2Y = 

50. OOLB. SEC/IN 

R 1 X = 

*154000. OOLB/IN 

K2X = 

-154000. OOLb/IN 

R1Y = 

154000. 00L6/IN 

R2Y = 

154000. OOLB/IN 

01X = 

0.000 OLB.SEC/lN 

U2X = 

O.OOOOLB. SEC/IN 

0 1 Y = 

O.OOOOLb.SFC/IN 

D2Y = 

O.OOOOLB. SEC/IN 

SHEt 0 = 450 KPS 



UNSTABLE 

RR = -6. 

171720+15 

ROW = 5 


THERE ANF. 8 CHARACTERISTIC ROOTS* WITH REAL ANU IMAGINARY PaRTS A$ FOLLOWS* 


REAL 

Imag 

-1691,44354 

2667.05110 

121.5370/ -1134,4135/ 

-2667,05110 -2031 .25955 

214.67334 

2111,65795 

-1691,44354 
-2667,051 10 

214.87334 

-2111.85795 

121.53707 
2667 .05110 

-1134 

2031 

.41357 

.25985 

THE NATURAL 

FREQUENCIES 

( IN CPi ) ARE t 








424 .47 

-424.47 -323.29 

336 .U 

-424.47 

-336,11 

424.47 


323.29 


THE NATURAL FREQUENCIES C IN RPM I ARE: 

19397.1 20166.8 25468.5 

THE WHIRL RATIOS ARE: 

-0.94328 0.74692 -0.74692 0,94328 
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TABLE D-I. - Concluded. 



L = 0.0000 INCH 

• Lis 

4,000 OINCH 

L2 = 

4.0000INCH 


W= 24.5900LU 


IPs 0. 

0496LB-IN-SEC? 

IT= 1. 

7400LB- I N-SEC2 

K 1 X = 

220000. OOLd/Iftl 

K2X = 

220000. OOLB/IN 

J<1Y = 

22QOOO. OOLB/IN 

K2Y = 

220000. OOLB/IN 

Cl x = 

50. OOLe. SEC/IN 

C2x = 

50.00LB. SEC/IN 

C 1 Y = 

50. OOLB. SEC/IN 

C 2 Y = 

50. OOLB. SEC/IN 

H 1X = 

-104500. OOLB/IN 

H2X = 

-184500. OOLB/IN. 

R1Y = 

164509. OOLB/IN 

R2Y = 

104500. OOLB/IN 

U 1 x = 

0.0000 L. d.StC/IN 

D2X = 

0.0000L8. SEC/IN 

D 1 Y = 

O.OOOOLb. SEC/IN 

D2Y = 

O.OOOOLB. SEC/IN 

---- SPEED = 450 RPS ---- 



UNSTABLE 

RR = -3. 

681230+16 

ROW = 5 


THEhE ARE 0 CHARACTERISTIC ROUTS, WITH REAL AND IMAGINARY PARTS AS fQJ.LO.WS; 


REAL 

-1040.15240 

..3.3.4., 20.046 -1253.74069 

, 3 34 .^0846 

-.10 4 9.,. 1524 8. 

-1253,74069 

270,24602 

278 

,24602 

I M A 0 

2724.30349 

2153.73570 -2073.13759 

-2153.73570 

-2724.30349 

2073.13759 

-2724.30349 

2724 

,30349 

THE NATURAL 

FREQUENCIES 

C IN CPS 1 are: 








433.59 

342.70 -329.95 

-34 2,. 76 

-4_33 t 59 

329.95 

-433.59 


433.59 


THE NATURAL FREQUENCIES ( IN RPM ) ARE! 

19 79? . 0 20566.7 26015.2 

THE WHIRL RATIOS ARE; 

0,7.6173 -0.76173 -0,96353 , 0.96353 
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I 


L 


8.00001HCH 


a.ooooinch 


4.0000INCH 


L 1 = 

IP= 0.0496LR-IN-SEC2 


W= 24.5900LB 

K1X = 22U000, OOLB/In 

C 1 X = lOO.OOLb.SEC/lN 

K1X= -220000, OOLB/Im 
U1X = O.OOOOLB. sec/in 


K2* = 220000. OOLB/ [N 

C2X= lUO.OOLb. SEC/IN 

R2* = -220000. QOLU/IN 
U2X = O.OOOOLb. SEC/IN 


L2 = 


K 1 V = 220000, OOLB/IM 

Cl Ys 100. OOLB. SFC/IN 

R1Y= 220000. OOLB/IM 
D1Y= O.OOOOLB. SEC/IN 


I T= 1 .7A00LB-IN-SEC2 

K 2Y= 220000. OOLB/IN 

C2Y= 100. OOLB. SEC/IN 

R2Y = 220000. OOLB/IN 

D2Y= O.OOOOLB. SEC/IN 


---- SPEED = 450 KPS 


UNSTABLF 


PR = -2.75969P+21 ROW = 7 


THERE ARE 8 CHARACTERISTIC ROOTS# WITH REAL AND IMAGINARY PARTS AS FOLLOWS i 


REAL 

iMAb 


-1894.16749 

1997.33317 


-2942,8/936 
-2S1S. 55893 


-2942,87930 

2515.55893 


-196.93357 

2515.55893 


-196.93357 

2515.55893 


THE NATURAL FREQUENCIES ( IN CPS ) ARE: 

317.89 -400,36 400.36 400,36 -400,36 

THE NATURAL FREQUENCIES ( In RPh ) ARE: 

19073,1 1 9 42 • 8 2402 1 .8 

THE WHIRL RATIOS ARE: 


55.06703 
2077.9312 8 


330,71 


0*73492 


-1894,16749 

-1997.33317 


-317.89 


55.08703 

-2077.93128 


-330,71 


-0.73492 


MARCH 5# 1968. TOTAL ELAPSED TIME IS 


68 SECONDS. PROCESSOR TIME IS 


32 SECONDS. I/O TIME IS 60 SECONDS. 


i 

i 
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APPENDIX E 


LISTING AND SAMPLE OUTPUT OF COMPUTER PROGRAM STABIL4 


BEGIN 

COMMENT THIS PROGRAM IS .FOR THE STABILITY ANALYSIS OF 2 DEGREE FREEDOM 
SYSTEM. THE REAL PART gives damping RATE AND the imaginary PART , THE 
NATURAL FREQ OF THE SYSTEM . IF REAL PART OF THE ROOT IS NEGATIVE THEN 
THE SYSTEM IS STABLE . IF REAL PART IS ZERO THEN THE SYSTEM IS NEUTRAL . 

IF the real part is POSITIVE then the system is unstable. 

PROCEDURE FUNCTION IS A FUNCTION GENERATOR . 

PROCEDURE COEFFICIENT CALCULATES THE COEFFICIENTS OF DIFFERENT POWERS 
OF LAMBDA . THE HIGHEST ONE STARTING WITH CCOI . 

THE INPUT DATA ARE AS FOLLOWS 
CARD 1 

1. N- HIGHEST POWER OF THE POLYNOMIAL 
CARD2 

1. W- MASS OF THE ROTOR (LBS) 

CARD3 

1. KX- STIFFNESS CDEFF IN X DIRECTION (LB/IN) 

2. KY - STIFFNESS COeFF IN Y DIRECTION (LB/IN) 

CAR05 

1. CX- DAMPING COEFF IN X DIRECTION (LB. SEC/IN) 

1. CY- DAMPING COEFF IN Y DIRECTION (LB. SEC/IN) 

CARD5 

1. RX- CROSS COUPLING STIFFNESS IN X DIRECTION (LB/IN) 

2. RY- CROSS COUPLING STIFFNESS IN Y DIRECTION (LB/IN) 

CARD6 

1. DX- CROSS COUPLING DAMPING CUEFF IN X DIRECTION (LB. SEC/IN) 

2. OY- CROSS COUPLING DAMPING CUEFF In Y DIRECTION (LB.SEC/lN) 

CARD 7 

l.L-LENGTH OF SHAFT (IN.) 

CARD 8 

l.IP- POLAR MOMENT OF INERTIA (L8-SEC-IN2) 

2. IT-TRANSVERSE MOMENT OF INERTIA (LB-SEC-IN2) 

CARD 9 

1. OMEGA-REV / SEC 

COL1. REAL PART (DAMPING RATE) 

C0L2 IMAGINARY PART ( NATURAL FREW) ) 

REAL KX . KY . CX . CY . RX . RY . DX . DY . KXX . KYY . CXX . Cyy . 

R X X . RYY . D X X . DYY . L . W . M . G . TP 1 . TP2 . TP3 > TEpl . TEP2 . 

K X A . KYA . C X A . CYA , RXA . RYA . DX A . DYA .IP . IT . KTT . KPP . 

RT . RP . OMEG . OMEGA ) 

INTEGER I > A . TMXM . TNRTS . N » S . CyC . REP / 

REAL ARRAY TRRT , TlRT • COEFCOSIOO) } 

BOOLEAN TSW 1 . TSW2 . TSW 3 . TSWR > 

LABEL AGAIN . FINIS } 

ARRAY TYMEIH3] J 

FORMAT HEADKX35 » "STABILITY ANALYSIS OF 4-DEGREE FREEDOM SYSTEM"./. 

X 35 . 4 5 ( " * ” ) . // ) J 
FORMAT HEAu2( 1(?(59("*") )./). 

X 3 , " KX = ” . Ell. 4 . "LB/IN" . XIO . " K Y = " • Ell. 4 . "LB/IN" . XIO . 

" RX=" . Ell. 4 , "L8/IN" . XIO . " RY=" . Ell. 4 . "LB/IN" . / . 

X 3 > " CX = " . Ell. 4 . "LB. SEC/IN" . X6 . " CY = " . Ell. 4 . "LB. SEC/IN" . 

X6 . « DX = " . Ell. 4 . "LB. SEC/IN" .X6 » " DY = " . Ell. 4 , "LB. SEC/IN" ./. 

X 3 . "IP = " . Ell. 4 , "LB-SEC-IN2" > X7 . "IT = " . Ell. 4 . "LB-SEC-IN2" .' 
XIO . "L=" . Ell. 4 . "IN." • X 1 3 . "W=" . Ell. 4 . "LBS." . / . X50 . 
"SPEED=" > Ell. 4 > "RPS" > / > 

1(2(59 ("*"))./))! 
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FORMAT HE AD 3 ( X31 , "REAL" » X12. "IMAGINARY" ) ; 

FORMAT OUT 1 C X22 . Elfi.ll . X4 . E18.ll ) } 

PROCEDURE COEFFICIENT (KX , KY . CX . CY , RX . RY . DX . DY . L .COEF); 
VALUE KX * KY » CX > CY » RX • KY > DX > DY > L > 

REAL KX > KY » CX i CY » RX > RY > DX > DY > L > 

REAL ARRAY COEFIO) ; 

BEGIN 

COEF [ 0 3 «• KY x KX - RX x ry ; 

COEFtn«- KX x CY + KY x CX - RX x DY - RY x DX 1 

C0EF[2]«- KX + KY + CX x CY - DX x DY ; 

COEF [ 3 1 ♦ CX + CY ; 

COEF t 4 ] *■ 1.0 ; 

END OF PROCEDURE COEFFICIENT f 

PROCEDURE FUNCTION ( REALE . IMAG , RLVAL . IEVAL ) t 

VALUE REALE . IMAG t 

REAL REALE . IMAG . REVAL . IEVAL 1 

BEGIN 

REAL RTOT . ITOT I 

REAL ARRAY RE . IM CO* 1 00 3 f 

RE [ 1 ] «• REALE f IMC1] • IMAG } 

FOR S + 2 STEP 1 UNTIL N DO 
BEGIN 

REIS] «• RECS-13 x R t C 1 3 - IMIS-1] x IMCH f 
I M [ S J «■ REIS-11 x IMC1I + IMIS-1] x REtl] ; 

end; 

RTOT«- COEF CO] ; 

I T DT «-0 . 0 ; 

FOR SM STEP 1 UNTIL' N DO 
BEGIN 

RTOT + RTOT + REIS! x COEF [SI ; 

ITOT* ITOT + I M [ S I x COEF IS] } 

END ; 

REVAL <• RTOT } 

IEVAL «• ITOT 1 
END ; 

PROCEDURE MULLER(P1.P2»P3.MXM.NRTS.EP1.EP2.SW1.SW2.SW3.SWR.RRT.IRT»0T1); 
VALUE P1»P2.P3.MXM»NRTS.EP1.EP2.SW1.SW2.SW3>SWR;INTEGER MXM.NRTS;BOOLEAN 
SW1. SW2. SW3. SWR1 real Pl.P2.P3.EPl.EP2;REAL ARRAY RRT. IRTCOIIFILE 0T11BE 
GIN BOOLEAN BOOLJINTEGFR C 1 . RT C » I . ITC1REAL RX 1 . RX 2, RX 3. I X 1 . I X 2. I X 3. RROOT 
.IR00T.RDNR.IUNK.T1.IT1.FRR00T.FIR0UT.RFX1.RFX2.RFX3.IFX1.IFX2.IFX3.RH.I 
H.RLAM.ILAM.RDEL.1DEL.T2,IT2.T3,IT3,T4.ItA.RG.IG,RDEN.IDEN.RFUNC.IFUNC;L 
ABEL M0.M1.M2.M3.M4.M9,M8»M6.M7.FIN1,FIN2»FIN3.M10»M12»M11.EXIT;SWITCH J 
«-M2.M3»M4,m7.M11;F0RMAT OUT F2(X46."REAL".X12."IMAGInARY"/X 37.E16. 1 1 . X 4 . 
El8.11/X39>” THE FUNCTION EVALUATED AT THIS POINT I S"/X46. "RE AL" . X 1 2. " 1M A 
GINARY"/X37.E18. 11. X4, F 1 8 . 1 1 /X 35, "THE MOD""IFIED FUNCTION EVALUATED AT T 
HIS POINT IS"/X46."REAL".X12»"IMAGINARY"/X37.E18, ll.X4.Elb. ll).F4(///X29 
.13.” ITERATIONS HAVEREEN MADE. THE VALUE OF ""THE ITERANT IS N0W»).F6 
C//X 37 ." SUCCESSIVE ITERANTS MEET CONVERGENCE CR I TER I ON"/ X 39* " AFTER", 1 3. " 

ITERATIONS. THE ROOT FOUND I S" ) . F8 ( //X 33/ "THE FUNCTION VALUES OF THE L 
AST ITERANT ARE"" SUFF T C I EN TL Y"/X 3 3 . "NE AR ZERO. ".14/" ITERATIONS WERE M 
A""DE • THE ROOT FOUND I S" ) . F 1 0 ( //X 35. I 3. " ITERATIONS COMPLETED AND SUCC 
ESSFUL C0NVE""RGENCE"/X41."HAS NOT OCCURRED. THE LAST ITERANT IS").F12( 
//X40."THE PREVIOUS ROOT FOUND WAS COMPLEX. THE"/X40. "CON JUGATE OF THIS 
VALUE IS ALSO A ROOT .") 1 PROCEDURE C OMPLEX ( A . I A. B . I B. K . C . 1 C ) 1 V ALUE A.IA. 
B. IB. k; INTEGER KJ REAL A. I A. B. I B» C » I C; BEGIN REAL TEMPILABEL MP Y. D VD . SQ T. E 
XIT1SWITCH JUNCTIONvMPY.DVD.SQTIGO TO JUNC T I ON I K ] ; MP Y t C «- AxB- 1 Ax I B } I C + Ax I 
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b+iaxb;gq to exit;ovdsif b=oand ib=othen begin cm; ic«-o;go to exit end;t 

EMP<-BxB+I8xIB;C«-( Axb+IAxIB)/TEMP; IC«-( IAxb-AxIB)/TEMP;GO TO exit; SOT* IF (I 
A=0) AND( A<0)THEN BEGIN C <-0; I C «-SOR T ( - A ) END ELSE IF IA = 0THEN BEGIN C*SQRT( 

a>;ic«-oend else begin temp«-surt(axa+iaxia);c«-sqrt((temp+a)/2);icmfctemp 

-AXOTHEN OELSE $QRT<(TEMP-A)/2)EN0/IF((B+C)x(B+C)+(I8+IC)x(lB+IC))<((B- 
C)x(B-C)+(IB-IC)x(lB-IC))THEN BEGIN C <-B-C ; I C <• I B- 1 C END ELSE BEGIN C*B+C; 
ic«-ib + ic end;exit:end;for IMSTEP lUNTIL NRTS DO RRT[I]MRTtI]«-0;RTC«-0;M 
o« iximx2mx3<-cimrootmtc*o;rroot«-pi;bool<-false;mi :ci«-ci + i;rdnrm; idnr* 

OIFOR IMSTEP lUNTIL RTC DO BEGIN C OMPLEX C RDNR/ I DNR / RR00T-RRT U ] / I ROOT" I 
RT[I]/ 1/Tl / ITDTRDNRMi; IDNRMT1 E ND; FUNC T I ON C RROOT / I ROOT/ T 1 , I T 1 ) ; C OMPLE 
X(T1/ IT 1/ RDNR, 1 DnR/2/FRR00T/FIR00T);G0 TO J[C1];m2:RFX1«-FRR00T; ifxxfiro 

ot;rroot«-p2;go to mi;m3srfx2«-frroot;ifx2«-firoot;rroot«-p3;go to humajrfx 

3«-FRR00T;IFX3<-FIRU0T;RXX-P1;RX2<-P2;RX3«-P3;RH<-RX3-RX2;IH«-IX3-IX2;C0MPLEX( 
RH/ IH/RX2-RX1, Ix2-IX1/?/RLAM/ I LAM) ; RDEL*RLAMM ; IDELMLAMIM9 8 I F ( RF X 1 =RF X2 
)AND(RFX2 = RFX3)AnO(IFX1=IFX2)AND(IFX2 = IFX3)THEN BEGIN RL AM <■ 1 ; I L AM «-0; GO T 

0 MB EN0;C0MPLEX(RFX1/IFX1/RLAM/1LAM/1/T1,IT1);C0MPLEX(RFX2/IFX2/RDEL/ID 
EL/ 1/T2/ IT2);t 1«-T1-T2 + RFX3J I T 1 * I T 1 - 1 T2+ I F X3) C OMPLEX ( RDEL/ I DEL/ RL AM / I L AM / 
1/T2/IT2);CUMPLEXCT1/IT1/T2/IT2/1/T3/ IT3) ; COMPLEX (RFX 3/ IFX3/T3/ IT 3/ 1/ Tl/ 
IT1 ); Tl«-4xl 1 j ITl«--4xITi; C0MPLEXCRFX3/ IFX3,RLAM + RDEL/ ILAM+IOEL/ 1/ T2/ IT2) 
;C0 MPLEX(RDELxRDEL-IDELxIDEL/2xRDELxIDEL/RFX 2/ IFX2/ 1/T3/ I T 3 ) ; COMPLE X ( RL A 
MXRLAM-ILAMXILAM,2XRLAMXILAM/RFX1/IFX1/1/T4/IT4);RG«-T4-T3 + T2;IG«-IT4-IT3 + 
1T2/IF SWR ANDC (RGxRG+T 1 )<0 )THEn BEGIN RDEN«-RG / IDENMG«-OEND ELSE COMPLEX 
CRGxRG-iGxIG+Tl/2*RGxIG+ITl/RG/IG/3/RDEN,IDEN);C0MPLEXC-2xRFx3/-2xIFX3/R 
DEL/IDEL/1/T1/IT1)8COMPLEXCT1/IT1/KDEN/IDEN/2 /RLAM/ILAM);mB8ITC«-ITC+1;RX 
1«-RX2;RX2«-RX3;RFX1«-RFX?;RFX2 < -RFX3/ IX1<-1X2 / IX2MX3/ IFX1MFX2; IFX2«-IFX3/C0 

mplexcrlam/ ilam,rh, ih, i,ti/ i t i );rhmi; ihmti;m6*rdel*rlamm; idelmlam;rx 

3«-RX2+RH/ IX3<-IX2+IH;C 1<-3J RR00T«-RX3/ I ROOT* IX 3/ GO TO Ml / M7 8 RFX3*FRR00T/ IFX 
3*FIR00T; FUNCTION (RX3/ 1X3/ RFUNC/ IFUNC); COMPLEX CRFX3/ I FX3/RFX2/ IFX2/ 2/ Tl/ 

1 T 1 ) / IFCTlxTl + IT 1 XIT 1 )> 100 THEN BEGIN RL AM*RLAM/2/ RH«-RH/28 ILAmMLAM/2; IH«- 
IH/2/G0 TO M 6 ENQ/IF SW1 THEN BEGIN WR I T E ( OT 1 / F4/ I TC ) / WR I TE ( OT 1 / F2/ RX 3/ I 
X3/RFUNC/ I FUNC /RFX 3/ I FX 3 ) END) T 1 *RX 3-RX2 i I T 1 «• I X 3- I X 2) COMPLEX ( T 1 / I T 1 / RX2/ I 
X2/2/T2/lT2)8IF SORT ( T2 xT2+ 1 T 2 x I J2 ) <EP 1 THEN GO TO FINl/IFCSQRTCRFUNCxRF 
UNC+IFUNCxIFUNC )<EP2) AMD(SQRT(RFX3xRFX3+IFX3xIFX3)<EP2) THEN GO TO FIN2II 
F I TC >MXM THEN Go TO FIN3 ELSE GO TO M9 ; F I N 1 8 1 F ( NOT SW2 ) THEN GO TO M12 E 
LSE WRITEC0T1/F6, ITO/’GO TO M 1 0/ F I N2 8 IF C NOT SW2)THEN GO TO M12 ELSE WRIT 
ECOT 1/F8/ I T C ) / GO TD M 1 0 8 F I N 3 8 BOOL* T RUE/ I F ( NOT SW23THEN GO TO Ml2 ELSE WR 
ITE(0T1/F10/ITC)8M108 wPITE(0T1/F2/RX3/IX3/RFUNC/IFUNC/RFX3/IFX3);m 128RTC 
«-RTC + i;RRTCRTCX-RX3; IRTCRTCI<-IX3; IF RTCiNRTS THEN GO TO EXIT/ IFCABSCIX3) 
>EP1)AND(SW3)AND(N0T BOOL)THEN BEGIN I X 3«-- I X 3 FUNC T I UN ( R X3/ I X 3/ RFUNC / I FU 
NC);RR00 T<-Rx 3; IR00T*lx3;ci«-4/Ga TU M1IM118IF SW2 THEN BEGIN WRITEC0T1/F1 
2);WRITEC0T1/F2/RX3/ IX3/RFUNC/ IFUNC/FRR00T/FIR00T)EN0;RTC<-RTC+1;RRT[RTC] 
«-rx3; irtcrtci«-ix3 end else go to mo;if rtc<nrts then go to mo/Exitiend; 

SWITCH FORMAT FMTYME «• C "DATE" / A21 )/ 

("TOTAL TIME"/ F15.2 / " SECONDS") / 

("PROCESSOR TIME" / F1J.2 / " SECONDS") / 

("I/O TIME" / F17.2 / " SECONDS") / 

FOR AM STEP 1 UNTIL 3 DO TYMECA) <• T I ME ( A ) ) 

WRITE (LP / HEADl ) ; 

READ ( CR / / / N ) J 

AGAIN: READ (CR / //XX / KY ) [FINIS] ; 

READ ( CR / / / CX , CY ) I 

READ ( CR / / / RX , RY ) ; 

READ ( CR / / / DX , DY ) ? 

READ ( CR / / / L ) ; 

READ (CR / / / W ) ; 

READ ( CR / / / IP / IT ) / 
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READ ( CR # / # OMEG ) } 

WRITE ( LP # HE A02 » KX » KY » RX > RY > CX > CV > DX » DV » IP > 

IT # L # W , UmEG ) i 
G* 32.2 x 12 } 

M* W/G ; 

KXA*C2xKX)/M ; KYA*C2 xKY)/M } CXA*C2xCX )/M ; CYA*C2xCY)/M f 
RXA*C2xRX)/M ; RYA*C2 xRY)/M t D X A* C 2xDX ) /M # 0YA*(2x0Y)/M # 

COEFFICIENT C K X A # KYA # CXA » CYA # RXA # RYA # DX A # OYA ,L # COEF) i 
WRITE ( LP . < XlO , "THE FOLLOWING GIVES THE CYLINDRICAL FREQ. t"> )T 
WRITECLPCDBL]) # 

WRITE CLP # < "THE COEF OF THE POLYNOMIAL IN ASCENDING POWER ARE«">) } 
WRITE CLP # < 5 C X 2 # E11.4)> » FOR 1*0 STEP 1 UNTIL N DO COEFCII ) f 
WRITECLPCDBL]) # 

WRITE CLP # HEAD3 ) ! 

TNRTS* N # 

FOR 1*0 STEP 1 UNTIL 100 DO TRRT [ 1 3 * TlRT[I] * 0 f 

MULLER C-l # 0 # 1.0 # 30 # N » 1, OS-12 # 1, OS-12 # FALSE « FALSE # TRUE# 
FALSE # TRRT # TlRT # LP ) ’> 

WRITE C LP # OU T 1 # FOR I * 1 STEP 1 UNTIL TNRTS DO C TRRT [ I ] # 

TIRTCI]]) i 
WRITECLPCDBL]) i 
0M£GA*0MEGx6.2B i 

KT T* IT/M > KPP*IP/M J R T*C 4xKTT )/ CLxL) 1 RP * C 4xKPP ) / C LxL ) i 
IF KTT=0 AND KPP=0 THEN 
BEGIN 
N*2 } 

TNRTS*N # 

COEF C 0 ] * KXAxKY A-RXAxRYA f 

C OEF C 1 ] * KXA x CYA + KYA x CXA + RYA x C RP x OMEGA - DXA) - RXA x 
C RP x OMEGA + OYA) ] 

COEF [ 2 ] * RT x C KXA+ KYA) + CXAx C YA+ C RP x OMEGA + DYA ) x 
C RP x OMEGA - DXA ) J 

WRITE CLP # < XlO » "THE FOLLOWING GIVES THE CONICAL FREQ. J" > ) ) 

WRITE CLPCDBLJ) ; 

WRITE CLP # < "THE COEF OF THE POLYNOMIAL IN ASCENDING POWER ARE * ”> 3 ) 
WRITECLPCDBL]) 5 

WRITE CLP > < S C X 2 # F. 1 1 . 4 ) > # FOR 1*0 STEP 1 UNTIL N DO COEFCI] ) f 
WRITECLPCDBL]) f 

FOR 1*0 STEP 1 UNTIL 100 DO TRRTCI] * TIRTCI] * 0 f 

MULLER C-l • 0 # 1.0 #30 # N # 1. OS-12 # 1. OS-12 # FALSE # FALSE # TRUE# 
FALSE # TRRT # TIRT # LP ) # 

WRI TECLP# HEA03) # 

WRITECLPCDBL]) t 

WRITE C LP » OUT 1 » FOR I* 1 STEP 1 UNTIL TNRTS DO CTRRTCI] » 

TIRTCI]]) ; 

WRITECLPCDBL]) f 

END 

ELSE 

BEGIN 

C OEF C 0 ] * KXAxKYA-RXAxRYA t 

COEFCI]* KXA x CYA + KYA x CXA + RYA x C RP x OMEGA - DXA) - RXA x 
C RP x OMEGA + DYA) ; 

C0EFC2]* RT x C KXA+ KYA) + CXAx CYA* C RP x OMEGA + DYA ) x 
C RP x OMEGA - DXA ) ! 

COEF C 3 ] * CCXA + CYA) x RT i 
COEF [4]* RT x RT # 
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WRITE (LP > < X10 > "THE FOLLOWING GIVES THE CONICAL FREQ. «" > ) f 
WRITE ( LP [ DBL ] ) J 

WRITE CLP > < "THE COEF OF THE POLYNOMIAL IN ASCENDING POWER ARE:">) r 
WRITECLPCDBLI) f 

WRITE CLP > < 5 C X 2 , EU.4)> > FDR 1*0 STEP 1 UNTIL N DO COEFCII ) i 
WRITECLPCDBLI) ; 

FOR 1*0 STEP 1 UNTIL 100 DO TRRTCII * TIRTCII * 0 f 

MULLER C-l > 0 > 1.0 >30 > N > 1. 00-12 > 1. OP-12 > FALSE > FALSE > TRUE. 

FALSE > TRRT > T1RT > LP ) '> 

WRITECLP>HEAD3) ? 

WRITECLPCDBLI) f 

WRITE C LP > GUT 1 > FOR 1* 1 STEP 1 UNTIL TNRTS DO CTRRTCII > 

TIRTCII)) i 

WRITECLPCDBLI) ; 

end; 

FOR A * 1 STEP 1 UNTIL 3 DO 

WRITE C LP .FMTYMECAI > CTlMECA) - TYMECA)) / 60) } 

WRITE C LP .FMTYMECOI > TIMECO)) ) 

WRITE C LP C P AGE I ) ; 


GO TO again ; 

FINIS: END . 

SORT IS SEGMENT NUMBER 0021.PRT ADDRESS IS 0133 


OUTPUT C W ) IS SEGMENT NUMBER 0022 
BLOCK CONTROL IS SEGMENT NUMBER 
INPUT C W ) IS SEGMENT NUMBFR 0024. 
GO TO SOLVER IS SEGMENT NUM8ER 

is segment number 

IS SEGMENT NUMBER 
IS SEGMENT NUMBER 
69 SECONDS. 


ALGOL WRITE 
ALGOL READ 
ALGOL SELECT 
COMPILATION TIME = 


> PR T ADDRESS IS 0136 
0023.PRT ADDRESS IS 
PRT ADDRESS IS 0147 
0025* PRT ADDRESS IS 

0026. PRT ADDRESS IS 

0027. PRT ADDRESS IS 
0026.PRT ADDRESS IS 

error on card * 

0 . 


NUMBER OF ERRORS DETECTED = 000. LAST 
NUMBER OF SEQUENCE ERRORS COUNTED = 

NUMBER OF SLOW WARNINGS = 0. 

PRT SIZE* 132> TOTAL SEGMENT SIZE* 1286 WORDS, 
DISK STORAGE REQ • = 65 SEGS.; NO. SEGS.* 29, 

ESTIMATED CORE STORAGE REQUIREMENT = 2436 WORDS, 


0005 

0152 

0014 

0015 

0016 
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CT> 

ISO 


TABLE E-I. - STABILITY ANALYSIS OF FOUR DEGREE FREEDOM SYSTEM 


KX = 3.6OOO0+O4l_B/IN 
C X = 3.2OOO0+OOL6.$EC/lN 
IPs 6.0000^-02LB-SEC“IN2 


KY = 
CY = 
IT* 


3.6000P+04LB/IN 
3. 2000?+00LB. SEC/IN 
1 .26OO0+OOLB-SEC* IN2 


RX= 6.25OO0+O3LB/IN 
DX= O-OOOO0+OOLB. SEC/IN 
L = 7 * 00000 + 00 1 N • 


SPEED= 6.22OO0+O2RPS 


RY = - 
DY = 

W 


THE FOLLOWING GIVES THE CYLINDRICAL FREQ. * 


THE COEF OF THE POLYNOMIAL IN 
2.46090+12 4,24690+06 


ASCENDING POWER ARE J 
3.11010+06 2. 747/0+02 


1 , 00000+00 


REAL 

-1,763726211910+02 

-1.763726211910+02 

3,898595453560+01 

3.698595453560+01 


imaginary 

1.245963970600+03 

-1.245963970600+03 

1.245983970600+03 

-1.245983970600+03 


THE FOLLOWING GIVES THE CONICAL FREQ. : 


THE COEF OF THE POLYNOMIAL IN ASCENDING POWER ARE * 


2.46090+12 2,04280+06 7.01290+06 6,06700+02 4,67530+00 


REAL 


IMAGINARY 


4,425600323460+01 

4,425800323460+01 

-1,064802254590+02 

-1.064802254590+02 


7,516039756300+02 

-7.516039756300+02 

9,376115946600+02 

-9,376115946800+02 


TOTAL TIME 
PROCESSOR TIME 
I/O TIME 
DATE 


Q.,32 SECONDS 
3.62 SECONDS 
9..12 SECONDS 
067361 


6.25OO0+O3LB/IN 
0* OOOO0 + OOLB. SEC/IN 
= 1 ,80000+OlLBS, 


NASA-Langley, 1969 15 E-4920 


KX= 4.0000P+04LB/IN 
CX= 6, 4OOO0+OOLB. SEC/IN 
IP* 6.OOOO0-O2L6-SEC-IN? 


K Y= 3 • 00000 + 04L8 / 1 N RX = 6 . 25000+0 3LB/ I N R Y = “ 

CY= 6. 4000?+00L8. SEC/IN DX= 0 . OOOO0 + OOL8 . $EC/ IN DY = 

I T= 1 .26OO0+OOL6-SEC-IN2 L= 7 . 00000 + 00 I N • W 

SPEE0= 6.22QQ0+Q2RPS 


THE FOLLOWING GIVES THE CYLINDRICAL FREQ, * 

THE COEF OF THE POLYNOMIAL IN ASCENDING POWER ARE: 

2.20390+12 6. 25790+00 3.08000+06 5,49550+02 1.00000+00 


REAL 

-2.033/59007460+02 
-2.033759007480+02 
-7.13974325/100+01 
-7. 139743257100+01 


IMAGINARY 

1.219695956460+03 

-1,219895958460+03 

1.219895956480+03 

-1,219895958460+03 


THE FOLLOWING GIVES THE. CONICAL FHEU. : 


THE COEF OF THE POLYNOMIAL IN ASCENDING POWER ARE: 


2.28390+12 6.05370+08 6.80000+06 1.21340+03 4,87530+00 


real Imaginary 


9.464360451300+00 

9.464360451300+00 

-1.339088049000+02 

-1,339088049000+02 


7.255623504700+02 
-7.255623504700+02 
9.337044 197400+^02 
-9,337044197400+02 


TOTAL TIME 
PROCESSOR TIME 
I/O TIME 
DATE 


12.45 SECONDS 
6.77 SECONDS 
12.37 SECONDS 
067361 




6.25OO0+O3L8/IN 
O.OOOO0+OOL8, SEC/IN 
= 1 .8OOO0+O1LBS. 


